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SECTION  I 


INTRODUCTION 

The  buckling  behavior  of  circular,  cylindrical,  fiber- 
reinforced,  laminated  panels  under  general  loading  and  boundary 
conditions  is  characterized  by  either  the  appearance  of  a 
bifurcation  point  or  a limit  point.  Accordingly,  an  effective 
numerical  procedure  should  be  capable  of  detecting  bifurcation 
points  and  limit  points. 

Bifurcation  points  can  be  preceded  by  either  a linear  or 
a nonlinear  relationship  between  the  applied  load  and  the 
resulting  displacements,  while  a nonlinear  relationship  must 
always  precede  the  appearance  of  a limit  point.  Therefore, 
an  effective  numerical  procedure  should  allow  for  the  nonlinear 
behavior  of  the  load-displacement  relationship. 

Circular,  cylindrical,  f iber- reinforced , laminated  panels 
exhibit  either  of  these  types  of  buckling  behavior  depending 
upon  the  manner  in  which  they  are  constructed.  Material  pro- 
perties of  individual  layers,  fiber  orientations,  layer  thick- 
nesses, and  layer  locations  within  the  stack,  all  interact 
to  determine  the  character  of  the  buckling  behavior.  Boundary 
conditions,  type  of  load,  and  location  of  concentrated  loads 
also  influence  the  nature  of  the  buckling  behavior. 

A material  characterization  of  fiber-reinforced  laminates 
has  been  presented  by  several  writers  [1,  2,  3,  4).  bach 
layer  of  the  laminate  is  assumed  to  be  an  orthotropic  material 
whose  material  properties  are  known  relative  to  its  natural 
axes.  Strains  are  assumed  to  vary  linearly  through  the  laminate 
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in  accordance  with  the  Kirchhof f - Love  hypothesis  of  thin 
shell  theory.  Stress-strain  relations  for  the  laminate  are 
developed  via  these  assumptions  and  the  definitions  for  the 
stress-resultants  for  the  laminate. 

Unbalanced  laminates  are  characterized  by  a coupling 
between  the  membrane  and  moment  stress -resul tants  and  balanced 
laminates  are  characterized  by  the  absence  of  this  coupling. 

Gallagher  and  Padlog  [5),  Vos  (t>]  , Lien  (7],  and  Lang  [8] 
have  presented  finite-element,  energy-based  procedures  for 
characterizing  the  buckling  and  postbuckling  behavior  of  shell 
type  structures.  Bushnell  14],  Bushnell  and  Almroth  [10],  and 
Bushnell,  Almroth  and  Brogan  [11]  have  led  the  way  in  developing 
effective  finite-difference,  energy-based  procedures  for 
characterizing  the  buckling  and  initial  postbuckling  behaviors 
of  shell  type  structures.  Their  efforts  have  culminated  in 
the  general  purpose  program  STAGS  [12]. 

A finite-difference,  energy-based  procedure  was  adopted 
as  the  foundation  for  the  generation  of  the  system  equations 
in  the  present  investigation.  Details  of  the  procedure  are 
explained  as  they  arise  during  the  course  of  the  development  of 
the  system  equations. 

The  Modified  Newton-Raphson  method  [13]  is  employed  to 
generate  the  load-deflection  relationship.  A modification  of 
the  linear  equation  solver  SES0L  [14]  is  used  to  solve  the 
algebraic  equations  associated  with  the  Modified  Newton-Raphson 
method.  Modifications  of  SF.S0L  include  incorporation  of  the 
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capability  of  calculating  the  system  determinant,  and  the 
capability  of  factoring  the  coefficient  matrix  independently 
of  load-reduction  and  backsubstitution . 
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THEORY  OF  "OMPOSITE  PANELS 

Fiber-reinforced  composite  panels  considered  in  this  study  are 
assumed  to  be  constructed  by  stackinq  individual  layers  of  fibers  on 
top  of  one  another.  It  is  assumed  that  each  individual  layer  can  be 
characterized  as  an  orthotropic  material  whose  orthotropic  properties 
relative  to  its  material  axes  are  known.  An  isotropic  material  is 
considered  as  a special  case  where  each  layer  of  the  stack  is  isotropic. 
The  angular  orientation  of  the  fibers  of  each  layer  is  assumed  to  be 
known  with  respect  to  a common  reference  axis.  The  reference  axis 
for  the  present  development  is  taken  as  a generator  of  the  cylindrical 
panel.  The  angle  0 shown  in  Fiqure  1 locates  the  fiber  direction  of 
a layer  relative  to  a nenerator. 


Kinematic  Considerations.  The  composite  panel  consistinq  of  N layers 
is  required  to  obey  the  Kirchhoff-Love  hypothesis.  Accordingly, 
appropriate  strain-displacement  relations  for  moderately  larqe  rotations 
of  tangents  to  the  panel  reference  surface  are  [15]: 


Figure  7. 


Circular  cylindrical  panel  depicting  coordinate  system,  displacement 
components,  and  load  components. 
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U,  V,  W denote  the  axial,  circumferential,  and  normal  components  of 

displacement.  Initial  Imperfections  are  restricted  to  those  that  are 

normal  to  the  panel  reference  surface  and  are  denoted  by  WQ.  The 

quantities  e , e , e are  components  of  the  membrane  strains;  K , K , 

* y xy  x y 

Kxy  are  changes  In  curvature  associated  with  bendinn  of  the  reference 

surface;  and  a , a , * are  conmonents  of  rotation  about  the  coordinate 
x y 

lines  and  about  the  normal  to  the  reference  surface.  These  rotation  com- 
ponents are  expressed  In  terms  of  the  displacements  by  the  formulas: 


-w.x- 

(2-a) 

-W  „ * V/R, 

•y 

(2-b) 

l(V.x-  V- 

(2-c) 

The  Klrchhoff-Love  hypothesis  leads  to  the  strain  distribution: 
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2e  . 

2K 

xy 
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xy 

The  quantities  « , « , 2.  are  the 
x y xy 

In  the  panel  and  Z Is  the  thickness 
reference  surface  (See  Figure  2). 


(3) 


strains  associated  with  a generic  point 
coordinate  measured  from  the  panel 


Layer  Stress-Strain  Relations.  Orthotropic  stress-strain  relations  for 
the  k-th  layer  are  [1,2,3]: 
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The  subscript  k slqnlfles  that  the  k-th  layer  Is  under  consideration. 

The  01 | are  symmetrical  and  are  the  material  coefficients  referred  to  a 
generic  set  of  axis.  They  are  expressed  In  terms  the  material  coeffclents. 
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The  quantities  . are  related  to  the  enqlneerlna  material  constants 
chrouqh  the  relations: 


En 
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l-\>l2\)2i 

(6-a) 
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( 6-d ) 

En,  F22  are  Younq's  modulH  of  elasticity  parallel  and  perpendicular 
to  the  fiber  direction,  respectively;  Gj2  Is  the  shearlnq  modulus  of 
elasticity  associated  with  the  directions  parallel  and  perpendicular  to  the 
fiber  direction;  and  vi2,  v2j  are  Poisson  ratios.  vl2  Is  associated 
with  a strain  In  the  1-  direction  due  to  a stress  In  the  2-  direction 
and  v2i  Is  associated  with  a strain  In  the  2-  direction  due  to  a stress 
In  the  1-  direction.  It  Is  convenient  to  let  the  1-  direction  coincide 
with  the  fiber  direction. 
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The  angle  appearing  in  Eqs.  (5)  is  the  angle  between  the  fiber  direction 
of  a layer  and  the  surface  coordinate  line  parallel  to  a generator. 

This  angle  is  considered  to  be  positive  when  the  coordinate  line  parallel 
to  the  generator  of  the  panel  is  located  in  a counter-clockwise  direction 
from  the  fiber  direction. 

Q.^  are  material  coefficients  associated  with  the  material  axes  of  the 
k-th  layer. 


Panel  Stress-Strain  Relations.  The  normal  and  shearing  stress  distributions 
on  a cross  section  of  a panel  are  replaced  with  statically  equivalent 
membrane  forces  and  couples  as  in  thin  shell  theory.  Accordingly, 
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Eqs.  (4)  and  Eqs.  (7)  lead  to  the  constitutive  relations  for  the  composite 
panel : 
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Formulas  connecting  the  elements  of  the  panel  stiffness  matrices 
[A],  [B],  and  [D]  with  the  material  properties  and  the  geometric  locations 


of  the  Individual  layers  of  the  stack  are: 


•j  k:,  v1j  vnk  ‘ Vl 


(9-a) 


Bu  ■ 7 k;,  V - hj.,). 


(9-b) 


’tj  ■ j ' 5uk  H c.J  • '•  6). 


(9-c) 


Pertinent  geometric  quantities  appearing  In  these  relations  are  defined 


In  Figure  2 . 
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SECTION  III 
DISCRtfE  FORMULATION 


A finite-difference,  enerqy-based  discretization  of  the  composite 
panel  is  adopted  for  the  investigation  Its  development  is  considered  below. 
Energy  Considerations.  It  is  assumed  that  the  reference  surface  of  the 
panel  has  been  divided  into  a finite  number  of  elements.  The  strain 
energy  associated  with  a typical  element  is  taken  as 

2U  = [e]T[N][c]*Area.  (10) 

The  notation  ( ) signifies  a centroidal  quantity,  consequently,  [e] 
and  [N]  are,  respectively,  the  strain  vector  and  material  stiffness  matrix 
at  the  centroid  of  the  element  area.  Thus, 


e 

e 


x 

y 


and 


[A] 

[B] 

[B] 

[D] 

(1 1-a,  11-b) 


In  general,  the  strain  vector  [i]  is  a function  of  the  centroidal 

displacements  U,  V,  W,  the  first  order  derivatives  of  U,  V,  W,  and 

the  second  order  derivatives  of  W.  Accordingly,  one  may  write,  symbolically 

'■]  ■ f(V.xAy.\\xAy.“,".xAy.".xx  “,xy.“,yy>-  <«> 

Let  a vector  [d]  be  defined  as: 

[d]T  ■ [U.u,x.%,V,V.x.V,y.1 V",xx.W.x»,V-  (13) 

then  the  strain  energy  of  a typical  element  of  the  panel  can  be  expressed 
in  the  indicial  form 
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(14) 


2U“a1j  d1  dj+aijk  d1  djdk  + aijke  di  dj  dk  V 


The  tensors  a^j,  a^,  and  a.jkf  are  independent  of  the  vector  d^ 
and  are  assumed  to  have  been  symmetrized.  Equation  (14)  is  an  expression 
for  the  strain  energy  associated  with  an  element  of  the  panel  reference 
surface.  Details  of  the  calculations  leading  to  the  coefficients  a^j, 
aijk'  and  aiikc  are  Presented  *n  Appendix  A. 


Finite-Difference  Grid.  The  reference  surface  is  assumed  to  be  mapped 
onto  the  xy-plane  as  shown  in  Figure  (3).  An  orthoqonal  grid  that  allows 
for  variable  spacing  in  both  the  x-  and  y-directions  is  inscribed  upon 
this  plane. 

The  element  whose  strain  energy  is  represented  by  Eq.  (14)  is  shown 
shaded  in  Figure  (3)  for  an  interior  element.  Elements  contiguous  with 
external  boundaries  or  internal  boundaries  at  cutouts  are  modified  as 
shown  in  Figures  (4)  and  (5).  The  element'  cannot  account  for  small 
areas  at  the  corners  of  the  panel.  Consequently,  in  order  to  avoid  a 
weak  coupling  between  the  degrees  of  freedom  associated  with  a corner 
grid  point  and  those  of  neighboring  grid  points  four  special  corner  elements 
are  Incorporated  as  shown  in  Figure  (6). 

For  any  element,  nine  surrounding  points  in  the  finite-difference 
grid  are  used  to  express  a function  value  and  its  first  and  second  order 
derivatives  at  the  centroid  of  the  element  area.  These  grid  points  are 
depicted  in  Figures  (3)  - (5)  by  the  symbol  x. 

Backward  and  forward  difference  formulas  are  used  for  all  boundary 
and  corner  elements  so  that  fictitious  grid  points  outside  the  boundary 
of  the  panel  are  not  introduced. 
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Figure  3.  Variable  spacing  finite-difference  grid  for  the  panel 

reference  surface.  Number  scheme  for  interior  elements. 
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Figure  4.  Numbering  scheme  for  left  exterior,  top  exterior,  ri^ht 
exterior,  and  bottom  exterior  boundary  elements. 
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Finite-difference  formulas  for  a left  external  boundary  element  are 
derived  below.  Finite-difference  formulas  for  the  other  external,  internal, 
and  corner  elements  are  obtained  in  a similar  manner  and  are  recorded  in 
Appendix  B. 

For  an  element  located  at  the  left  exterior  boundary  as  shown  in 
Figure  (7),  a one- dimensional  Taylor  series  may  be  used  to  relate  a 
function  value  and  its  first  and  second  derivatives  along  a line  parallel 
to  the  x-axis  through  the  element  centroid  with  discrete  values  of  the  function 
at  the  intersections  of  this  line  with  the  y-qrid  lines.  Accordingly, 


f 

f 

{ 


fi+2  = f + f'  (3/4  h + k)  + \ f"  (3/4  h + k)2, 

fHl  = f + r (3/4  h)  + \ f"  (3/4  h)2, 

f.  = f - f*  (1/4  h)  + \ f"  (1/4  h)2. 


Eqs.  (16)  yield  the  centroidal  quantities: 


i _ 3 h2  f ,1  (k+3/4h)  r . 3 (k+3/4h)  r 

f ' *T?  tTWJ"  fi+2  + T ^ f,-xi  + 7T  ■'  iuirv# 


i+1  J 


f‘  = ' 2k(F+T)  fi+2  + 


(k+3/2h) 

+1  ‘ hTli+k) 


' „ 2 2 2 
f"  = FTR+ITT  fi+2  ‘ hlc  fi+l  + h(h+k)  fi' 


(16-a) 

(16-b) 

(16-c) 

( 1 7-a ) 
(17-b) 
(17-c) 


Note  that  f i , fi+^  and  f^+2  are  not  discrete  function  values  at  points  of 
the  finite-difference  grid. 

Now  consider  a centroidal  line  parallel  to  the  y-  grid  lines  as 
shown  in  Figure  (7).  Using  a one-dimensional  Taylor  series  in  the  y- 
direction  one  obtains: 
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x - Finite-difference 
grid  point 

• - Auxilliary  points 

o - Element  centroid 

Finite-difference 

grid  lines 

— - Lines  along  which 
one-dimensional 
Taylor  series  are 
applied 


Figure  7.  Left  exterior  boundary  element  showing  lines  along  which 
one  dimensional  function  values  and  derivative  values  at 
the  element  centroid  are  obtained  by  Taylor  series. 


(18-a) 


fj+r  f + f {^rA)  + \ ~f 


= f - i + 7 f (!Ti)2’ 


fj_i=  f - f (^)2. 

Eqs.  (18)  yield  the  centroidal  quantities: 


£ , (3m+t.)(3i!.-Hn)  r (m-t)  (3m+2.)  x 

Tj+1  16  i m Tj  " 16  i U+m)  Tj-1’ 


1 


f = fj+l  + {2t  ‘ fj-T 

f ^ f _ _2_  f i ^ r- 

m( 5,+m)  j+1  " tm  j 8.U+m)  j-1' 


(18-b) 

(18-c) 

(19-a) 

(19-b) 

(19-c) 


In  the  foreqoinq  developments  ( )',  ( )"  and  ( ‘ ),  ( ),  signify 

differentiation  with  respect  to  the  x-  and  y-  coordinates,  respectively. 

Note  that  h,  k and  i,  m are  qrid  spacings  in  the  x-  and  y-  directions, 
respectively. 

Eqs.  (17)  and  (19)  can  be  employed  to  express  a two-dimensional 
function  value  and  its  derivatives  as  linear  combinations  of  9 discrete  centroidal 
quantities  associated  with  function  values  at  thegrid  points.  Accordinoly, 
one  obtains  a transformation  of  the  form: 


fi  bijgj’  1 “ 1 >2, ...  ,6;  j = 1,2,.  ...9. 
The  vectors  f ^ and  are  defined  as: 

[f] T  = [f,  f;  f,  h f;  f], 

and 

[g] T  = [fli,  92.  93.  •••»  9g]- 


(20) 


( 21 -a ) 

(22-a) 


r- 


i i 


i 

! 
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The  are  discrete  values  of  the  function  f at  the  9 surroundlnq  finite- 
difference  grid  points.  The  transformat  ion  matrix  . Is  different  for 
each  type  of  exterior  and  interior  boundary  element,  corner  element, 
or  interior  element.  The  procedure  used  to  develop  the  transformation 
matrix,  b.j,  is  given  in  Appendix  B. 

The  centroidal  values  of  the  displacements  (w,  u,  v)  and  their 
first  and  second  order  derivatives  at  the  element  centroid  can  be 
determined  via  Eo.  (20)  . Accordingly,  one  can  obtain  the  transformation 


d1  ' c1r  V M-2 ,2:  r=1-2-- 

The  vector  qr  is  defined  as: 

[q]T  » [Wlt  U,,  V i , W2t  U2,  V2,  .. 


,27. 


Wg  , Ug  , Vg]  , 


(23) 


(24) 


where  W.,  U.,  V.  are  displacement  components  at  the  nine  finite-difference 
qrid  points  associated  with  an  element.  The  matrix  c^r  has  the  structure 
shown  in  Figure  (8). 


Element  Strain  Energy.  The  strain  energy  of  a typical  element  can 
now  be  expressed  in  terms  of  its  grid-point  degrees  of  freedom. 
Accordingly,  substitution  of  Equation  (23)  into  Equation  (14)  yields: 


2U  ■ Ars  "r  * \st  \ "s  "t  4 flrstu  qr  "s  qt  V 

where 

Ars  = aij  cir  c.is’ 

Arst  = aijk  cir  cjs  ckt’ 

Arstu  3 aijkv  cir  cjs  ckt  c«u‘ 


(25) 

(26-a) 

(26-b) 

(26-c) 
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The  tensors  Ar$,  Arsfc,  Arstu  are  completely  symmetrical  because 
dij*  aiik*  an<*  aiikv  are  comPletely  symmetrical.  This  is  an  important 
consideration  since  the  variational  procedures  proceed  more  directly 
because  of  this  symmetry.  Details  of  the  development  of  the  components  of 
these  tensors  are  given  in  Appendix  B. 

We  introduce  the  second  order,  symmetrical,  tensors  Nlrs  and  N2r 
through  the  relations: 


rs 


1 Arst  \ s l N1rs’ 
and  , 

Arstu  qt  % ~ 5 ^rs‘ 

The  element  strain  energy  can  now  be  expressed  in  the  preferred  form: 
U ’ 4 Ars  * 5 N,rs  N?rs>  V "s' 


(27) 

(28) 


(29) 


The  tensors  Nl^s  and  N2fS  depend  linearly  and  ouadratically  upon  the 
displacement  vector  qr.  Also  it  should  be  observed  that  they  are 
symmetrical . 


Element  External  Potential  Energy.  The  potential  enerqy  associated  with 
the  surface  forces  acting  on  an  element  is  given  by: 

$1  - -Rj  d j “-RjCjj  q.  = -Rj  q.,  (30) 

where  Rj  = R..  c^j.  (31) 


The  R.  are  generalized  external  surface  forces  that  are  Independent  of 

J 


System  Total  Potential  Energy.  The  potential  enerqies  of  the 
internal  and  external  forces  for  a typical  element  are  given  by 
Equations  (29)  and  (30).  The  total  potential  enerqy  for  a system 
consisting  of  N elements  Is 

N 

V * I (U,  + ttj,  (32) 

1=1  1 1 


where  the  summation  is  to  be  carried  out  in  the  usual  manner  for  assemb- 
ling a structural  stiffness  matrix. 

From  this  point  forward  it  is  assumed  that  the  total  potential 
energy  associated  with  the  complete  system  has  been  constructed.  It 
can  be  written  in  the  form: 

V ■ <7Ars  *1  N'rs  "A  N2rs>  <V  “s  * Rs  "s'  <33> 

The  tensors  Ars,  Nlrs,  N2rs,  Rr,  and  qr  are  system  quantities, 
but  the  two-dimensional  matrices  retain  the  symmetry  properties 
accorded  to  the  corresponding  element  tensors. 

Equilibrium  Equations.  The  principle  of  total  potential  enerqy  [16] 
asserts  that  the  equilibrium  configurations  of  a conservative  mechanical 
system  correspond  to  a stationary  value  of  the  total  potential  enerqy 
of  the  system.  Accordingly,  when  appropriate  account  is  taken  of  the 
linear  dependence  of  Nlrs  and  the  quadratic  dependence  of  N2^s  on 
the  displacement  vector,  q^,  there  is  obtained,  as  a result  of  settino 
the  first  order  variation  of  the  total  potential  enerqy  (V)  equal  to  zero, 
a set  of  nonlinear,  algebraic  equations  of  the  form: 

<Ars  * 1 N1rs  * 5 N2rs>  «s  ‘ Rr  ' »•  <34> 
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The  subscripts  r,  s extend  over  all  degrees  of  freedom  of  the 
system. 


Stability  Conditions.  Bifurcation  points  on  the  load-deflection  curve  of 
a conservative  mechanical  system  are  characterized  by  a second  order 
variation  of  the  total  potential  enerqy  that  ceases  to  be  positive  definite. 
Since  the  second  order  variation  as  obtained  from  Equation  (34)  is 

. (Ars  * Nlrs  ♦ N2rs)«Vqs,  (35) 

it  follows  that  the  critical  load  corresponds  to  the  smallest  value  of  load 
parameter  for  which  the  coefficient  matrix  in  Equation  (35)  vanishes. 
Accordingly,  at  a bifurcation  point: 

DET  (Ar$  + Nlr$  + N2rs)  = 0.  (36-a) 

Some  structures,  especially  those  that  possess  initial  geometric 
imperfections,  and  particularly  unbalanced  fiber-reinforced  composite 
panels,  do  not  exhibit  bifurcation  type  buckling  behaviors.  A structure 
that  loses  its  stability  other  than  by  bifurcation  usually  does  so  as  a 
limit  point  buckling  behavior.  Figures  (9)  and  (10)  show  these  types  of 
buckling  behavior  [17,  18].  Accordingly,  for  structures  that  exhibit 
limit  point  buckling  behavior,  the  critical  load  is  characterized  by  a 
maximum  on  the  load-deflection  curve. 

A critical  load  corresponding  to  a limit  point  on  a generalized 
load-deflection  curve  is  determined  by  oeneratino  the  load-deflection 
curve.  Numerical  detertni nation  of  bifurcationpoints  and  limit  points  for 
the  composite  panel  is  discussed  in  a subseouent  section. 


A 
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Figure  9.  Equilibrium  paths  depicting 


bifurcation  buckling  behavior 
and  limit  point  buckling  behavior 
typical  of  imperfection  - sensitive 
structures . 


Figure  10.  Equilibrium  paths  depicting 

bifurcation  buckling  behavior 
typical  of  imperfection-insensitive 
structures. 
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Boundary  Conditions.  Computational  capability  of  the  computer  program 
is  restricted  to  zero  displacement  and/or  zero  force  boundary  conditions. 

Since  displacement  components  W,  U,  V have  been  used  as  generalized 
coordinated,  only  zero  values  of  these  guantities  can  be  prescribed. 

Clamped  edge  conditions  can  be  achieved  by  recalling  that  forward  and  back- 
ward finite-difference  schemes  have  been  used  for  elements  contiguous  with 
panel  internal  and  external  boundaries. 

Generalized  forces  associated  with  the  displacement  components  W,  IJ,  V 
are  automatically  specified  to  be  zero  if  the  corresponding  displacement 
component  is  not  specified.  Zero  edge  bending  and  twisting  moments  are 
automatically  satisfied  because  of  the  variational  principle  employed  when 
the  rotations  at  the  edge  are  unrestricted. 

Numerical  Strategies  for  Bifurcation  Analyses.  Two  fundamental  considerations 
arise  when  deciding  upon  a numerical  strategy  for  the  detection  of  bifurcation 
points:  linear  prebuckling  behavior  and  nonlinear  prebuckling  behavior. 

For  linear  prebuckling  behavior  the  prebuckling  displacements  are  linearly 
related  to  the  applied  loads.  Accordingly,  for  proportional  loading,  one  may 
write: 

DET  {Ars  + n Nlr$(qo)  + nrN2rs(q;)l  = 0 (36-b) 

at  the  bifurcation  load.  Here  n = R/R  , and  q(  is  associated  with  an  equilibrium 
configuration  corresponding  to  an  initial,  convenient  load-level  R.  The  quan- 
tities A . N1  , and  N2^  are  calculated  once.  The  load  parameter,  n,  is  then 
rs  rs  rs 

incremented  until  a sign  change  occurs  in  the  determinant. 

For  nonlinear  prebucklinq  behavior  the  nonlinear  incremental  stiffness 
matrices,  Nlr$  and  N2r$,must  be  recalculated  at  each  load-level.  Accordingly, 
calculation  of  bifurcation  points  for  nonlinear,  prebuckling  behavior  requires 
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that: 


DET  {Ars  + NWq^  * N2rs^2)}  * 0 (36-c) 

A bifurcation  point  Is  bracketed  whenever  a sign  change  In  the  system  deter- 
minant Is  detected.  Since  Nlrs  and  N2ps  must  be  recalculated  for  each  load- 


level,  the  detection  of  a bifurcation  point  for  nonlinear,  prebuckllng  behavior 
requires  the  expenditure  of  considerably  more  computlonal  time  than  for  linear, 
Drebucklina  hphavinr 


SECTION  IV 
NUMERICAL  METHODS 

The  Newton-Raphson  method  or  Us  modified  form,  appears  to  have 
gained  a preferred  status  for  use  in  geometrically  nonlinear,  structural 
problems  [13].  Accordingly,  the  modified  Newton-Raphson  procedure 
is  used  in  this  study.  A brief  description  of  the  Newton-Raphson 
method  is  included  here  so  that  a firm  grasp  of  the  numerical  precedures 
employed  in  the  computer  program  can  be  realized. 

Newton-Raphson  Procedure.  At  a given  load  level,  R*.  the  associated 
displacement  vector,  q*,  must  satisfy  Equation  (34).  Let  «r  be  a 
reasonably  accurate  approximation  of  q*  so  that: 

q*  = qr  + Aqr.  (37) 

Inserting  qp  into  Equation  (34)  gives: 

<Vs  * ? NVs  + J N2rs>  S-  - R;  - fr  <V-  <38> 

The  vector  f is  a measure  of  the  degree  by  which  the  equilibrium  at 
load  level  R*  is  not  satisfied  by  the  approximate  displacement  vector 
q . Pertinent  quantities  are  shown  in  the  one-degree  of  freedom  system 
of  Figure  (11). 

Expanding  fr  in  a Taylor  series  about  the  point  qr  qives: 

3 f r 

V^i  + = + 3^  I Aqs  + H.O.T.  (39) 

The  series  expansion  is  truncated  after  linear  terms  in  Aq$  and 
fr(q^  + Aq^)  is  set  equal  to  zero.  This  yields  a set  of  linear, 
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ilized  force 


Figure  n.  Generalized  load  - deflection  curve 
depicting  pertinent  quantities 
associated  with  the  Newton-Raphson 
Iterative  procedure. 


algebraic  equations  for  the  improvements,  Aq^: 


aoT  1 Aqs  = ' V-  • 

S . a. 


The  derivatives  appearing  in  Eouation  (45)  can  be  obtained  by  differentiat- 
ing Equation  (38).  The  result  is: 

ir  ■ Ars  ♦ Nlrs  * N2r$.  (41) 

The  Newton-Raphson  algorithm  becomes: 

(Ars  + N1rs  + N2rsK  = 'W*  ™ 


q*  = qr  + Aqr. 


Modified  Newton-Raphson  Procedure.  The  Newton-Raphson  procedure  requires 
the  stiffness  matrix  and  the  derivative  of  the  stiffness  matrix  to  be 
regenerated  for  each  iteration  at  a specified  load  level.  Moreover, 
the  solution  of  Equation  (42)  requires  a refactoring  of  the  coefficient 
matrix  for  each  iteration.  Each  of  these  operations  can  be  costly  for  larqe 
systems  of  equations.  The  modified  Newton-Raphson  procedure  maintains 
the  derivative  matrice  constant  for  several  iterations  at  a specified  load 
level,  thus  saving  the  computer  time  required  to  factor  the  coefficient  matrix. 
Convergence  to  a desired  acuracy  using  the  modified  Mewton-Raohson  procedure 
i'  know  to  require  more  iterations  than  the  conventional  Newton-Raphson 
procedure.  However  considerable  computer  time  is  saved  because  the  time 
reauired  to  execute  the  additional  iterations  reouired  by  the  modified 
procedure  is  generally  less  than  the  time  required  to  refactor  the  coefficient 
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matrix  at  each  iteration  as  reouired  by  the  Newton-Raphson  procedure. 

Figure  12  shows  the  pertinent  behavior  of  the  modified  Newton-Raphson  method. 


Generalized  displacement,  q 

Figure  12.  Generalized  load-deflection 
curve  depicting  pertinent 
quantities  associated  with  the 
modified  Newton-Raphson  iterative 
me  t hod . 


SECTION  V 
NUMERICAL  RESULTS 


The  purpose  of  this  section  is  to  compare  some  numerical  results  ob- 
tained from  the  present  program  with  results  obtained  from  STAGS  and  to 
demonstrate  the  types  of  boundary  conditions,  applied  loads,  material  pro- 
perties, and  buckling  behavior  incorporated  in  the  present  program. 

ISOTROPIC  PANEL 

Table  I contains  numerical  data  obtained  via  the  present  program  for 
an  isotropic  panel  whose  pertinent  material  and  geometric  properties  are 
shown  in  Figure  (13).  The  plots  of  these  data  appear,  along  with  the  re- 
sults obtained  from  STAGS,  as  the  three  lower  most  curves  in  Figure  (13). 
Results  for  a 7 x 7 and  for  a 13  x 13  finite-difference  grid  are  included 
to  indicate  the  degree  of  convergence  as  the  mesh  size  is  decreased.  The 
data  from  which  the  curve  labeled  STAGS  was  plotted  was  obtained  from  Fig- 
ure (26)  of  reference  [12].  The  panel  was  simnly-supported  (W  = V = 0 and 

M = N = 0)  along  the  curved  edges  and  free  (Q*  = Mu  = N = N = 0)  along 

xx  y y y xy 

the  free  edges.  A plot  of  the  system  determinant  versus  load  is  also  shown 
in  the  figure  and  reveals  that  the  collapse  load  for  the  panel  is  about  3 lb 
(STAGS  gives  about  2.6  lb). 

The  upper  most  curve  in  Figure  (13)  represents  the  load-deflection  rela- 
tionship for  the  same  panel  under  identical  loading  conditions  when  U = V = W 
= Mn  = 0 along  all  edges.  The  collapse  load  was  determined  to  be  about  8.8  lb 
when  using  a 7 x 7 finite-difference  grid.  No  STAGS  data  were  available  for 
comparison.  Numerical  data  applicable  to  this  case  is  contained  in  Table  III. 
Table  II  contains  numerical  data  obtained  from  the  present  program  for 
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TABLE  1 


IsotroDic  panel  with  a concentrated  load  applied  at  the  geometric  center.  The 
two  straight  edges  are  free  and  the  two  curved  edges  are  simply  supported.  (7x7 
and  13x13  finite-difference  grid). 


(7x7  Finite-Difference  Grid) 
Load  Determinant 

TTbT 


-0.327  825.9 
-0.589  802.4 
-0.850  751.2 
-1.112  784.5 
-1.373  783.1 
-1.635  705.6 
-1.897  691.6 
-2.158  675.3 
-2.420  656.3 
-2.681  634.2 
-2.943  584.1 
-3.205  522.8 


0.00345 

0.00617 

0.00904 

0.01210 

0.01538 

0.01894 

0.02285 

0.02725 

0.03232 

0.03847 

0.04667 

0.06142 


(13x13  Finite-Difference  Grid) 


-0.327 

2188.6 

4 

- 

-0.572 

2177.3 

2 

- 

-0.818 

2122.1 

2 

- 

-1.063 

2073.9 

2 

- 

-1.308 

1983.9 

3 

- 

-1.553 

1934.7 

3 

- 

-1.800 

1888.7 

3 

- 

-2.044 

1846.2 

4 

- 

-2.289 

1808.4 

4 

- 

-2.534 

1774.0 

4 

- 

-2.780 

1743.9 

4 

- 

-3.025 

1707.1 

6 

- 

Number  of 
Iterations 

2 

2 

3 

2 

2 

3 

3 

4 

5 
4 

7 

★ 


Center  Deflection 
(inches) 

-0.00340 

-0.00625 

-0.00923 

-0.01236 

-0.01567 

-0.01922 

-0.02306 

-0.02728 

-0.03205 

-0.03777 

-0.04577 

-0.05849 


All  Edges  ! 


Figure  13.  Comparison  of  present  formulation  with  STACS  for  an  isotropic  panel  with 
straight  edges  free  and  curved  edges  simply-supported  and  a concentrated 
load  at  its  geometric  center. 


the  same  isotropic  panel  under  identical  loading  conditions  when  the  curved 
edges  were  clamped  (W  = W = N = V = 0)  and  the  straight  edges  were  free. 

J A X 

This  data  was  obtained  via  13  x 13  finite-difference  grid  and  is  plotted  in 
Figure  (14).  The  data  from  which  the  curve  labeled  STAGS  appearing  in  this 
figure  was  plotted  was  obtained  from  Figure  (26)  of  reference  [12).  A plot 
of  the  system  determinant  vs.  load  is  also  shown  in  the  figure. 

The  foregoing  numerical  results  indicate  that  calculations  obtained  via 
the  present  program  compare  reasonably  favorably  with  those  obtained  via 
STAGS.  Possible  sources  that  may  account  for  the  differences  are  the  strain- 
displacement  relations  adopted  by  the  two  program,  difference  in  what  consti- 
tutes simply-supported  boundary  conditions,  or  simply  the  coarseness  of  the 
finite-difference  grid  used  to  obtain  the  plotted  data.  Moreover,  numerical 
results  obtained  via  the  present  program  were  obtained  using  single-precision 
arithmetic  on  the  IBM  370/165  computer. 

UNBALANCED  PANEL 

Table  IV  contains  numerical  data  obtained  via  the  present  program  for 

an  unbalanced  borox-epoxy,  fiber-reinforced  panel  whose  pertinent  material 

and  geometric  properties  are  shown  in  Figure  (15).  The  nanel  consists  of 

four  layers  of  equal  thickness  (0.006  in)  whose  fiber  directions  are  60,  45, 

30,  and  0 degrees,  respectively.  Boundary  conditions  along  the  straight 

edges  are  W = M = N = N = 0,  while  W=M=U=V=0  alonq  one  curved 

y y yx  * 

edge  and  W = M = N = V = 0 along  the  other  edge.  The  edge  compression 

Jr  X X 

is  obtained  by  applying  a series  of  equal  concentrated  loads  at  the  centroids 
of  the  area  elements  along  the  curved  edge. 

The  numerical  data  of  Table  IV  results  in  the  curved  labeled  "unbalanced 
panel"  in  Figure  (15).  The  buckling  behavior  is  clearly  of  the  limit  point 
type.  A plot  of  the  system  determinant  versus  load  also  shown  in  this  figure. 


f 

■ 

I 
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TABLE  2 


Isotropic  panel 

with  a concentrated  load  applied  at 

the  geometric  center.  The 

two  straight  edges  are  free  and 
difference  grid). 

the  two  curved  edges 

are  clamped.  (13x13  Finite 

Load 

Tibi 

Determinant 

Number  of 
Iterations 

Center  Deflection 
(inches) 

-1.308 

54,258.7 

5 

-0.01180 

-2.126 

54,004.1 

4 

-0.02158 

-2.943 

53,654.9 

4 

-0.03582 

-3.761 

53,011.7 

5 

-0.06164 

-4.251 

53,010.8 

5 

-0.07690 

-5.231 

53,173.6 

6 

-0.09570 

-6.213 

53,553.3 

4 

-0.10875 

-7.194 

54,041.6 

* 

TABLE  3 

-0.11890 

Isotropic  panel  with  a concentrated  load  applied  at  the  geometric  center.  All 
four  edges  are  simply  supported.  (7x7  Finite-difference  grid). 


Load 

TTbT 

Determinant 

Number  of 
Iterations 

Center  Deflection 
(inches) 

-0.040 

7029.1 

2 

-0.000211 

-0.157 

7024.1 

2 

-0.000846 

-0.589 

7012.8 

2 

-0.00318 

-1.570 

6983.7 

3 

-0.00856 

-2.374 

6958.6 

4 

-0.01298 

-2.708 

6911.1 

2 

-0.01517 

-2.855 

6902.8 

2 

-0.01603 

-3.002 

6895.5 

2 

-0.01691 

-3.188 

6884.3 

2 

-0.01802 

-3.414 

6871.8 

2 

-0.01938 

-3.826 

6845.2 

2 

-0.02191 

-4.326 

6808.4 

2 

-0.02507 

-4.915 

6758.1 

2 

-0.02893 

-5.592 

6684.5 

2 

-0.03364 

-5.886 

6647.6 

2 

-0.03580 

-6.409 

6558.6 

2 

-0.03983 

-7.194 

6358.4 

2 

-0.04656 

-7.979 

5874.8 

3 

-0.05457 

-8.240 

5478.8 

3 

-0.05771 

-8.502 

4272.9 

6 

-0.06136 

-8.764 

-5895.3 

★ 

-0.06779 
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BALANCED  PANEL 

Table  V contains  numerical  data  for  a panel  that  differs  from  the 
panel  discussed  in  the  previous  paragraph  only  in  the  directions  of  the 
fibers  of  the  various  layers.  The  fiber  angles  (+  45  degrees)  and  stack- 
ing sequence  have  been  chosen  so  as  to  yield  a balanced  panel;  i.e.,  a 
panel  for  which  the  coupling  between  the  membrane  forces  and  the  moment- 
resultants  does  not  exist.  This  data  appears  in  Figure  (15)  as  the  curve 
labeled  "balanced  panel".  A plot  of  the  system  determinant  versus  load  also 
appears  in  this  figure.  Apparently,  neither  bifurcation  or  limit  point 
buckling  has  occurred  at  540  lb,  but  apparently  the  panel  is  nearing  its  load 
carrying  capacity  as  indicated  by  the  load-deflection  curve.  (The  bifurca- 
tion load  for  an  isotropic  plate  with  E = 40  x 106psi  is  548  lb). 

The  results  of  a linear,  prebuckling,  bifurcation  analysis  is  also 
shown  in  the  insert  of  Figure  (15).  A plot  of  the  system  determinant  vs. 
load  when  linear  prebuckling  behavior  is  assumed  to  prevail  indicated  that 
bifurcation  occurs  at  about  525  lb. 

UNBALANCED  PANEL  WITH  CUT-OUT 

Table  VI  contains  numerical  data  obtained  via  the  present  program  for 
the  previously  discussed  panel  except  that  a small  rectangular  cut-out  (0.67 
in  by  1.0  in)  is  included  at  its  geometric  center.  Pertinent  material  and 
geometric  properties  for  the  panel  are  shown  in  Figure  (16).  Boundary  con- 
ditions along  the  straight  external  edges  are  W = M = N = N = 0,  while 

y y y* 

W = MX  = U = V = 0 along  one  curved,  external  edge  arid  W = Mx  = Nx  = V = 0 

along  the  other  curved,  external  edge.  Along  the  straight,  interior  edges 

q*=M=U=V=0  and  along  the  curved,  interior  edges  Q*  = M = U = V = D. 
y y y x 

Edge  compression  is  obtained  as  described  previously. 
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TABLE  4 


Unbalanced  boron-epoxy,  fiber-reinforced  panel  under  uniform  end-compression  par- 
allel to  the  straight  edges.  All  four  edges  are  simply  supported  with  the  curved 
edges  subjected  to  a uniform  axial  compression. 


Load 

Determinant 

Number  of 

Averaqe  Lateral  Deflection 

(lb) 

Iterations 

(inches) 

50.0 

8660.4 

3 

0.0108 

70.0 

8630.2 

2 

0.0161 

90.0 

8597.2 

2 

0.0223 

110.0 

8557.9 

3 

0.0296 

130.0 

8515.5 

3 

0.0386 

150.0 

8465.8 

3 

0.0507 

170.0 

8395.6 

4 

0.0696 

190.0 

* 

TABLE  5 

Balanced,  boron-epoxy,  fiber-reinforced  panel  under  uniform  end-compression  parallel 
to  the  straight  edges.  All  four  edges  are  simply  supported  with  the  curved  edges 
subjected  to  a uniform  axial  compression. 


Load 

Determinant 

Number  of 

Averaqe  Lateral  Deflection 

(lb) 

Iterations 

Cinches) 

50.0 

7696.6 

2 

0.0062 

90.0 

7659.9 

2 

0.0116 

130.0 

7614.8 

2 

0.0176 

170.0 

7563.9 

2 

0.0243 

210.0 

7505.3 

2 

0.0317 

250.0 

7434.3 

3 

0.0403 

290.0 

7352.7 

3 

0.0503 

330.0 

7258.5 

3 

0.0626 

370.0 

7161.9 

3 

0.0782 

410.0 

7078.6 

3 

0.0987 

450.0 

7018.6 

3 

0.1249 

490.0 

6984.6 

3 

0.1564 

530.0 

6964.6 

3 

0.1924 
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TABLE  5 (CONT’D) 


Linear,  prebuckling,  befurcation  analysis. 


*-oad  Load  Factor,  N Determinant 

(lb) 


50.0 

75.0 

100.0 

125.0 

150.0 

175.0 

200.0 

225.0 

250.0 

275.0 

300.0 

325.0 

350.0 

375.0 

400.0 

425.0 

450.0 

475.0 

500.0 

525.0 


1.0 

7695.8 

1.5 

7673.4 

2.0 

7649.1 

2.5 

7621.9 

3.0 

7592.7 

3.5 

7560.9 

4.0 

7525.1 

4.5 

7484.9 

5.0 

7440.1 

5.5 

7387.3 

6.0 

7326.8 

6.5 

7253.5 

7.0 

7164.0 

7.5 

7051.0 

8.0 

6897.7 

8.5 

6675.9 

9.0 

6306.4 

9.5 

5490.4 

10.0 

943.9 

10.5 

-11,001.6 
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TABLE  6 


Unbalanced  boron-epoxy,  fiber- reinforced  panel  under  uniform  end-compression 
parallel  to  the  straight  edges  wltha  rectangular  cut-out  at  Its  geometric  center. 
All  edges  are  simply  supported. 


Load 

(lb) 

Determin 

20.0 

8264.1 

40.0 

8237.6 

60.0 

8209.8 

80.0 

8179.6 

100.0 

8143.9 

110.0 

8127.0 

120.0 

8107.2 

130.0 

8086.3 

140.0 

8063.7 

150.0 

8034.8 

160.0 

8002.8 

170.0 

7959.3 

180.0 

7849.1 

190.0 

* 

Number  of 

Iterations  Average  Lateral  Deflection 

(inches) 


2 

2 

2 

2 

3 

2 

2 

2 

2 

3 

3 

3 

5 

9 


0.0043 

0.0093 

0.0143 

0.0203 

0.0274 

0.0315 

0.0360 

0.0412 

0.0471 

0.0542 

0.0631 

0.0755 

0.1025 

★ 
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UNBALANCED  PANEL 


TABLE  7 

Unbalanced  boron-epoxy,  fiber- reinforced  panel  under  uniform  end-compression  with 
Initial  geometric  Imperfection  of  amplitudes  -0.01,  -0.03,  -0.04,  and  -0.05.  All 
edges  are  simply  supported. 

INITIAL  IMPERFECTION  AMPLITUDE  = -0.01 


Load 

Determinant 

Number  of 

Average  Later 

(lb) 

Iterations 

( i nch 

50.0 

8660.4 

3 

0.0108 

70.0 

8630.2 

2 

0.0161 

90.0 

8597.2 

2 

0.0223 

110.0 

8557.9 

3 

0.0296 

130.0 

8515.5 

3 

0.0386 

150.0 

8465.8 

3 

0.0507 

170.0 

8395.6 

4 

0.0696 

190.0 

* 

5 

★ 

INITIAL 

IMPERFECTION  AMPLITUDE  = 

-0.03 

50.0 

8613.7 

3 

0.0199 

70.0 

8576.3 

3 

0.0305 

90.0 

8533.4 

3 

0.0436 

110.0 

8482.3 

3 

0.0616 

130.0 

8413.0 

4 

0.0922 

150.0 

** 

9 

★* ** 

INITIAL 

IMPERFECTION  AMPLITUDE  = 

-0.04 

50.0 

8442.9 

4 

0.0654 

70.0 

8384.8 

4 

0.1064 

90.0 

8335.4 

4 

0.1608 

110.0 

8312.4 

4 

0.2234 

130.0 

8305.0 

3 

0.2831 

150.0 

8295.2 

4 

0.3362 

170.0 

8267.1 

4 

0.3832 

190.0 

8220.6 

3 

0.4254 

210.0 

8156.9 

3 

0.4640 

230.0 

8077.1 

3 

0.4997 

250.0 

7981.9 

3 

0.5330 

270.0 

7873.1 

3 

0.5644 

* Did  not  converge  but  exhibited  a negative  determinant  after  five  iterations. 

**  Did  not  converge  after  9 iterations. 
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TABLE  7 (CONT'D) 

INITIAL  IMPERFECTION  AMPLITUDE  = -0.05 


| 

Load 
(lb) 


Determinant 


Number  of 
Iterations 


Average  Lateral  Deflection 
(inches) 


50.0 

70.0 

90.0 

110.0 

130.0 

150.0 

170.0 

190.0 

210.0 

230.0 

250.0 

270.0 


50.0 

70.0 

90.0 

110.0 

130.0 

150.0 

170.0 

190.0 

210.0 

230.0 

250.0 

270.0 

290.0 

310.0 


8417.8  4 

8373.0  4 

8344.3  4 

8335.4  4 

8332.6  3 

8327.0  3 

8308.4  3 

8274.0  3 

8228.4  3 

8159.3  3 

8083.8  3 

7997.8  3 


INITIAL  IMPERFECTION  AMPLITUDE 

7896.2  2 

7770.2  2 

7778.0  2 

7788.2  2 

7795.4  2 

7799.4  2 

7800.0  2 

7795.7  2 

7786.4  2 

7773.1  2 

7752.9  2 

7727.6  2 

7694.0  2 

7653.6  2 


0.0769 

0.1194 

0.1682 

0.2200 

0.2705 

0.3180 

0.3621 

0.4030 

0.4412 

0.4772 

0.5113 

0.5438 


0.0591 
0.0846 
0.1100 
0.1359 
0.1622 
0.1888 
0.2156 
0.2426 
0.2690 
0.2970 
0.3243 
0.3515 
0.3788 
0.4062 


Load  (lb) 


0.006 

in 

O.OOff 

in 

0.006 

in 

0.006* 

in 

PANEL  PROPERTIES 
En  - 40  x 10G  pal 
K22  " 4.5  x 10f'  psl 
Gi 2 ■ 1.5  x 10G  psi 
v 1 2 " 0.25 
R - 25.0  in. 


n 

« 4 In. 

x _L 


w (x,v) 


W sin  — ain  ^ 
a 


AVERAGE  DEFLECTION,  W (inches) 

Figure  17.  Lond-def lection  curves  for  an  unbalanced,  boron-epoxy,  panel 
with  initial  geometric  imperfections. 


The  data  from  Table  VI  is  plotted  in  Figure  (16).  The  collapse  load 
for  this  unbalanced  panel  with  a small  cut-out  is  approximately  1 85  lb:  not 
much  different  from  the  collapse  load  for  the  same  panel  without  a cut-out 
(approximately  190  lb). 

UNBALANCED  PANEL  WITH  INITIAL  GEOMETRIC  IMPERFECTION 

Table  VII  contains  numerical  data  obtained  via  the  present  proqram  for 

the  unbalanced,  boron-epoxy,  panel  discussed  in  the  foregoino  paragraphs 

when  initial  geometric  imperfections  are  present.  The  initial  geometric 

1TX  try 

imperfection  is  taken  in  the  form  WQ(x,y)  = Wo  sin  — sin  g-  . Figure  (17) 
shows  pertinent  material  and  qeometric  properties  and  the  load-deflection 
curves  associated  with  initial,  geometric,  imperfection-amplitudes  of  Wo  - 
-0.01,  -0.03,  -0.04,  -0.05,  and  -0.2.  The  load-deflection  curve  for  the 
"perfect"  panel  is  shown  in  Figure  (15)  and  does  not  differ  significantly 
from  that  for  which  WQ  = -0.01,  consequently,  it  is  not  plotted  in  Figure 
(17).  Figure  (17)  shows  that  the  collapse  load  for  the  unbalanced  panel 
decreases  sharply  as  the  initial  imperfection  amplitude  is  increased.  How- 
ever, the  local  maximum  that  characterizes  the  collapse  of  the  "perfect.1 
panel  and  the  "imperfect"  panel  for  small  initial  imperfection-amplitudes 
gradually  disappears  for  larger  imperfections  (-0.04  and  -0.05).  For  very 
large  initial  imperfection  amplitudes  (-0.20)  collapse  of  the  panel  was  not 
obtained  after  310  lb. 

ISOTROPIC  RECTANGULAR  PLATE 

Table  VIII  contains  numerical  data  for  the  determination  of  the  bifur- 
cation load  for  a rectangular,  aluminum  plate  whose  geometrical  and  material 
properties  are  shown  in  Figure  18.  The  plate  was  subjected  to  a uniform 
end-compression  and  all  edges  were  siniply-supported.  Also  shown  in  Table 
VIII  are  numerical  data  associated  with  initial  geometric  imperfections  of 


(lb) 


W - - 0.003  in.  _ - - " 


mm 


TABLE  8 


! 


Isotropic  plate  under  uniform  end-compression  with  initial  geometric  imperfec- 


amplitude  -0.0003  and  -0.003 

inches.  All 

edges  are  simoly  sunnorted. 

Load 

INITIAL  IMPERFECTION 

Determinant 

AMPLITUDE  = 

Number  of 
Iterations 

-0.0003  in. 

Average  Lateral 

Deflection  (inches) 

TTbT 

10.0 

10340.4 

1 

0.000097 

15.0 

10339.6 

1 

0.000156 

22.5 

10339.2 

1 

0.000243 

32.5 

10339.1 

1 

0.000373 

45.0 

10338.3 

1 

0.000559 

60.0 

10337.6 

1 

0.000828 

77.5 

10336.6 

2 

0.001289 

97.5 

10335.4 

2 

0.001997 

120.0 

10334.2 

2 

0.003328 

145.0 

10332.6 

5 

0.008023 

146.25 

10330.3 

2 

0.008557 

148.75 

10329.7 

2 

0.009889 

10.0 

INITIAL  IMPERFECTION 

10340.5 

1 AMPLITUDE  = 

2 

-0.003  in. 

0.00101 

12.5 

10339.6 

1 

0.00128 

17.5 

10339.1 

1 

0.00183 

25.0 

10338.9 

2 

0.00277 

35.0 

10338.3 

2 

0.00413 

47.5 

10337.7 

2 

0.00610 

62.5 

10336.2 

2 

0.00899 

80.0 

10335.3 

2 

0.01338 

100.0 

10332.4 

3 

0.02070 

105.0 

10328.8 

2 

0.02310 

112.5 

10327.7 

2 

0.02730 

122.5 

10325.0 

1 

0.03340 

50 
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TABLE  8 (CONT'D) 

LINEAR 

PREBUCKLING  BIFURCATION 

ANALYSIS 

Load 

Load  Factor,  N 

Determinant 

TTbl 

10.0 

1.0 

10338.4 

15.0 

1.5 

10337.8 

20.0 

2.0 

10337.7 

25.0 

2.5 

10337.5 

30.0 

3.0 

10337.2 

35.0 

3.5 

10336.9 

40.0 

4.0 

10336.6 

45.0 

4.5 

10336.2 

50.0 

5.0 

10335.9 

55.0 

5.5 

10335.8 

60.0 

6.0 

10335.6 

65.0 

6.5 

10334.9 

70.0 

7.0 

10334.6 

75.0 

7.5 

10334.4 

80.0 

8.0 

10334.0 

85.0 

8.5 

10333.6 

95.0 

9.5 

10332.8 

100.0 

10.0 

10332.6 

105.0 

10.5 

10332.4 

110.0 

11.0 

10332.1 

115.0 

11.5 

10331.7 

120.0 

12.0 

10331.3 

125.0 

12.5 

10331.1 

130.0 

13.0 

10330.7 

135.0 

13.5 

10330.0 

140.0 

14.0 

10329.5 

145.0 

14.5 

10329.5 

150.0 

15.0 

10329.0 

155.0 

15.5 

10328.9 

160.0 

16.0 

-10328.7 

1 * 

51 
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amplitudes  -0.003  in.  and  -0.0003  in.  These  data  are  plotted  in  Figure  18 
for  a 13  x 13  finite-difference  grid. 

The  bifurcation  branch  of  the  present  program  predicts  a critical  load 
of  magnitude  157  lb.  while  Timoshenko  theory  predicts  a critical  load  of 
148  lb. (6%  high).  The  load-deflection  curves  representing  imperfection  am- 
plitudes of  -0.003  in.  and  -0.0003  in.  appear  to  be  approaching  the  calculated 
bifurcation  load  asymptotically. 

The  foregoing  examples  demonstrate  the  types  of  boundary  conditions, 
applied  loads,  material  properties,  and  initial  imperfections  for  which  the 
present  computer  program  can  render  bifurcation  and  collapse  analyses. 

As  much  of  the  analysis  is  built  into  the  computer  program  as  seems 
computationally  feasible.  Nevertheless,  the  analyst  must  make  certain  deci- 
sions regarding  an  appropriate  initial  load  level,  initial  load- 'increment, 
and  convergence  criterion  for  the  modified  Newton/Raphson  procedure.  The 
present  program  sets  this  converge  criterion  at  10'4,  but  it  can  be  easily 
altered.  Usually,  one  will  not  know  a priori  the  order  of  mannitude  of  the 
bifurcation  or  collapse  load  for  a particular  panel;  consequently,  it  is 
difficult  to  make  wise  decisions  regarding  the  initial  load-level  and  initial 
load- increment.  It  therefore  seems  computationally  efficient  to  obtain  an 
approximate  buckling  load  by  the  linear,  prebuckling,  eigenvalue  routine  nro- 
vided  as  an  option  in  the  present  computer  program  prior  to  making  a complete 
nonlinear  analysis.  Moreover,  because  the  severity  of  the  nonlinear  effects 
of  the  load-deflection  curve  can  not  always  be  ascertained  a priori,  it  may 
be  effective  to  generate  the  load-deflection  curve  in  separate  segments. 

Finally,  the  present  program  does  not  possess  the  capacity  to  generate 
the  load-deflection  curve  beyond  a local  maximum;  i.e.,  the  present  coding 
does  not  permit  calculation  of  the  post-buckled  equilibrium  configurations. 
However,  the  program  can  be  modified  to  permit  calculation  of  the  post-buckled 
configurations. 


APPENDIX  A 


FORMULAS  FOR  COEFFICIENTS  ASSOCIATED  WITH 
QUADRATIC,  CUBIC,  AND  QUARTIC  ELEMENT  ENERGY  TERMS 

Coefficients  a^,  a..^,  and  a^^  associated  with  the  quadratic, 
cubic,  and  quartic  portions  of  the  strain  energy  of  an  element  are 
developed  in  this  appendix. 

The  strain  energy  of  an  element  is  given  by  the  formula: 

2U  = N.j^Ej,  i,j  = 1,  2,  ....  6.  (A-l ) 

N - j is  the  material  stiffness  matrix  as  expressed  by  Eq.  (11 -b)  and 
e.j  are  the  strain  components.  The  linear  and  nonlinear  portions  of 
e.j  are  denoted  by  L^  and  NL^,  respectively,  so  that, 

e.  = Li  + NL..  (A-2) 

For  convenience  the  til  da  over  any  quantity  will  be  suppressed  from 
this  point  with  the  understanding  that  the  strain  components  and  the 
material  stiffness  matrix  are  associated  with  the  centroid  of  the 
element  area. 

Explicit  expressions  for  the  linear  and  nonlinear  parts  of  the 
strain  components  are: 
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■ -W  ♦ V /R  , 

.yy  .y 

_?u  + u _ _L  M 

,x,y  2R  V,x  2R  U,y 


, and 


( A- 3 ) 


NL>  ■ ? * S • 1 V,*U,y  * 1 • 

^•?",J-R''M,y*^v2-5V.5t?U.yV.x-5uJ  • 


NL  ->  « W W - i VW 


»x  ,y  R ,x  * 


(A-4) 


NL4  = 0 , 
NL5  - 0 , 
NLf,  = 0 . 


The  energy  of  an  element  can  be  segregated  into  its  quadratic, 
cubic,  and  quartic  parts  using  Eqs.  (A-l)  and  (A-2).  Thus, 


2U  ■ ♦ Nu(LiNLi + LfNLi> * Ni.iNLiNLj 


(A-S) 


where  the  first,  second,  and  third  terms  on  the  riqht-hand  side  of 
Eq.  (A-5)  are  the  quadratic,  cubic,  and  ouartic  contributions  to  the 
strain  energy  of  an  element.  Each  of  these  quantities  can  be  expressed 
explicitly  so  that  formulas  for  calculating  the  coefficients  a^, 
a^,  and  a^.^  can  be  determined.  These  coefficients  depend  only  upon 
the  material  and  geometric  properties  of  the  panel  and  not  upon  the 
selection  of  a finite-difference  grid. 
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Quadratic  Contribution.  The  following  terms  result  from  an  expan- 
sion of  the  quadratic  portion  of  the  strain  energy.  Because  of 
symnetry  only  the  unique  terms  in  the  expansion  need  to  be  formulated. 


i - 1 , j - 

N11L1L1  - N„U2 
» ■ 

(Nj2  + ^2  i)L  jl-2 

(Nn  + N3i)L1L3  . 

(N14  + N4 1 )L j L4  : 

(Nis  ♦ N51)LiL5  ■ 


1 , 2 6: 


< ♦ N"<2V*u,x“.*  * “;,x“;x>  • 


= 2N^U.xV,y  ^ U,x“> 

1 * “o.yV.y  + Vx“.x\y 

* Vx“,x“'R  - Mo.xWo,y“.xV/R 


+ w w w w ) 

o,x  o,y  ,x  ,y 


' 2">’<U-xV,x  * U,xU,y> 
h 2N»(Wo,x  u,x“.y  + Wo,yU,x".x  ' “o,xU,xV/R 

* “o,x“,xV.x  * VxV.x  * "o.x“.x“.y 
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2N'-<-U,xW,xx>  - 2Nl-<“o,x“,x“,xx>  • 
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(»,s  * N61)L,l6  - 2N16(-2UjXW  xy  * i U xViX  - i U^) 


+ 2N16(-2W  H W + ^-W  V W 
lbV  o,x  ,x  ,xy  2R  o,x  ,x  ,x 


' 2R  Wo,xU,yW,x*  ; 


i - 2 , j = 2,  3 6 : 


N22L2L2  = N22(V2  + 2V  W/R  + W2/R2) 
^y  »y 


* * Wg./J  - i W0,yVViy  * 2W  0>yViyW>y 

- h “o,y™  1 RVy^.y  - I W • 


(N23  + N32)L2L3  = 2N  2 3 ( V V + WV  /R  + U V + WU  /R) 

**  ty  **  *y  *y  »y 

* 2"”(Wo.xV.yW,y  * “0,y\yH,x  - 5 “o,xVV.y  * I “o,»“t',y 
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- R VyVV,x  - R “o,yV  ' S “S,yv“.x  * R*  “o.xVy* 

+ w v w + w u w + w w vr 
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(N2y  ♦ N42)L2L4  . 2N?b(-V  yW  xx  - iwn  xx) 

* 2lW"„,y™,xx/R  * “o.yV.xx>  • 


(N25  * N52)L2L5  . 2Nrs(-V>yH  yy  - MH  yy/R  * v;y/R  * MV>y/R=) 

* 2N”(“o,yV“.yy/R  ‘ VyVV.y/R’  ‘ VyV.yy 
* wo.yv.yw,y/R>  • 
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(»26  * K6!)L2L6  . 3K26(.2V_yW>xy  ♦ & V>xV>y  - X UiyV>y 


K m.xy  * &".x  ' W “U,y> 


* 2"«<f  “o,yV“,xy  ' W “o,yVV,x  * “o.y^,, 
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+ 2N3s(-H0iXwiyWtyy  - Wo,yW,xM,yy  * R Wo,xVW,yy 


+ i W V W + i W.  V w 
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W.  „VV  J 


The  following  formulas  give  the  contribution  of  the  initial, 
lateral,  geometric  imperfection  to  the  quadratic  portion  of  the  strain 
energy.  Note  that  these  contributions  form  a symmetric  matrix  so  that 
only  nonzero  and  upper  triangular  elements  are  listed. 
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1 = 6 


j = 6: 


N66L6L6 


W 

,x  ,xy 


3 II 

m u 


,yV,x  * I U,y",xy> 


The  coefficients  appearing  in  the  foregoing  expressions  are 
collected  and  assembled  in  two  12x12  arrays  in  accordance  with  vector 
[d]  of  Eq.  (13).  These  arrays  are  shown  in  Figures  (A-l)  and  (A-2) 
and  represent,  respectively,  the  quadratic  strain  energy  contribution 
in  the  absence  of  initial  geometric  imperfections  and  the  additional 
contributions  that  arise  out  of  the  presence  of  imperfections. 


Cubic  Contributions.  The  following  terms  result  from  an  expansion 
of  the  cubic  portion  of  the  strain  energy  of  an  element. 


i = 1 , j = 1,  2,  ...,  6: 
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(Ni4  + N41)(L1NL4  + LUNLX ) = 
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wvw 


(N23  + N32 ) (L2NL3  + L3NL2)  3 
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(N26  + N62)(LrNL6  + l6nl2)  = 
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All  terms  for  which  i ^4  and  ,i  >_  4 are  identically  2ero  because 
NL^  are  zero  for  these  values  of  the  index  i. 

The  following  unique,  nonzero  coefficients  a^  can  be  identified. 
For  convenience,  they  are  grouped  so  as  to  be  reoresentative  of  the 
character  of  the  product  of  displacement  and/or  derivatives  with  which 
they  are  associated. 

WITHOUT  IMPERFECTIONS 

Group  I (All  factors  in  a product  are  the  same). 

U VU  U : (N13  - N23)/4  ♦ (-N16  ♦ N26)/8R 
V *V  vV  x:  {N13  - N23)/4  + 3(Nj6  -N26)/8R 


Group  II  (Two  factors  in  a product  are  the  same). 
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V,xV.y  : 

(N12  - N22)/12  + (N15  - N25)/12R 

5,5,7 

V.xV  : 

( N 1 2 - N22)/l 2R 

5,5,10 

V.x“,xx; 

( ~ N m + N24)/12 

5,5,11 

V,x“,„: 

(-N16  + N26)/6 

5,5,12 

V.x“.,y: 

(-Ni5  + N2  5 )/l 2 

5,8,8 

V W W : 

, X , X ,x 

N13/3  + N16/2R 

5,9,9 

V W W : 
•x  ,y  ,y 

N23/3  + N?6/2R 

6,8,8 

V W W : 
,y  ,x  ,x 

N12/3  + N,5/3R 

6,9,9 

V W W : 

»y  »y  »y 

N22/3  + N25/3R 

7,8,8 

W W W : 

» A f A 

N12/3R 

7,9,9 

“ V.y  : 

N22/3R 

8,8,10 

“,x",x“,xx: 

-N14/3 

I 

*1 
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8,8,11 

“,xW,x“.xy: 

-2N16/3 

8,8,12 

“,x“,x“,yy: 

-Nis/3 

9,9,10 

WWW  : 
,y  .y  ,xx 

-N24/3 

9,9,11 

".yV,xy: 

-2N26/3 

9,9,12 

WWW 

.y  .y  ,yy 

-N25/3 

Group  III  (All 

factors  in  the  product  are  unique). 

2,3,5 

U,xu,yV,x  : 

(-Nn  + N12)/12 

2,4,8 

V “,x 

-Nu/3R 

2,4,9 

U.xv  “,y  : 

-N12/3R 

2,8,9 

U.x“,x“,y  ; 

N 1 3/3 

3,4,8 

V ",x  : 

-N33/3R  + N36/6R2 

3,5,9 

U V W : 
,y  .y 

-N23/3R  + N26/6R2 

3,5,6 

u V V 
,y  »x  ,y 

(-N,2  + N22)/12  + ( — N j 5 + N25)/12R 

3,5,7 

U V W : 
»y  »x 

(-N 1 2 + N22)/12R 

3,5,10 

U V W : 
,y  ,x  ,xx 

( N 1 4 -N24)/l 2 

3,5,11 

U V w 
.y  .x  ,xy 

(Nu  -N26)/6 

3,5,12 

U V W : 
»y  .x  ,yy 

( N 1 5 -N2s)/12 

3,8,9 

U w W : 
.y  * x ,y 

N33/3  - N36/6R 

4,5,8 

V V,x“,x  ; 

-N33/3R  - N36/2R2 

4,5,9 

v V.y  : 

-N23/3R  - N26/2R2 

4,6,8 

V V W : 
.y  ,x 

-N23/3R  - N35/3R2 

4,6,9 

V V W : 

♦y  .y 

-N22/3R  - N25/3R2 

4,7,8 

V W W : 

» X 

-N23/3R2 

4,7,9 

V W Wy  : 

-N22/3R2 

4,8,10 

V “,x“,xx: 

N34/3R 
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4,8,11 

V 

2N36/3R 

4,8,12 

V W,x“.yy: 

N35/3R 

4,9,10 

V V.xx: 

N24/3R 

4,9,11 

v “.y“,xy: 

2N26/3R 

4,9,12 

V W W : 

•y  .yy 

N25/3R 

5,8,9 

v xw  XW  v : 

»A  »A  fj 

N33/3  + 

N36/2R 

6,8,9 

V yW  xw  y : 
»y  »*  »y 

N23/3  + 

N35/3R 

7,8,9 

WWW  : 
.x  ,y 

N23/3R 

8,9,10 

WWW  : 
,x  ,y  ,xx 

-N34/3 

8,9,11 

V.yW,xy: 

-2N36/3 

8,9,12 

“.x“,y“,yy: 

-N35/3 

The  coefficients  have  been  symmetrized  by  dividing  Groups  I,  II,  and 
III  by  1,  3,  and  6,  respectively. 

CONTRIBUTIONS  DUE  TO  IMPERFECTIONS 

Group  I (All  factors  in  a produce  are  the  same.) 

8-8-8  “,x“,xV  N>'Ho,x  * N's"o.y 

N N 

4,4.4  V V V • - W - -2-1  W 

* * v V V . WQ>y  R3  WQ>x 

9’9’9  V.yV  N^“o,y  * N»“o,x 

Group  II  (Two  factors  in  a product  are  the  same.) 

5’5’8  \xV,x“,x:  Ti>  - Nu>V  + (N,3  - N„)U0  J} 

3'3’8  u,yV.x:  h ,(N>1  - N«’>“o,x  + 


70 


8,9,9 


4,4,8 


4,8,8 

4,5,5 


3,3,4 


8,8,9 


5,5,9 


3,3,9 


4,9,9 


4,4,9 


I N'2“o,x  * N2sWo,y  * I n5>“0.x 

V V V TfcV  >“„,y*^“o.x 

v ",x“,x:  -¥“o,y-  Vv.-lPV, 

V V,XV,X:  T^l"22  - N>2>“o,y  * (N22  - N'2>"o,X> 

W : tIr  llN22  • Ni2>“o,y  * ("22  - n13>“0,x) 

",xw,x“,y;  ¥M0.y*M»l,0,XtT,,»Vy 
V.xV  -Ni2>Vy  4 <N1J  • N23>Wo,x’ 

u,vu,y“,y:  A‘(‘("22  ' N'2>u0,y  * (Ni3  - Ni3>  “o.x1 

V “,yV  - -f  Vy  - V H„.x 
V.V  > “o,y  4 H*  “„.x 


Group  III  (All  factors  in  a product  are  different.) 


3,5,8 

V.x“,x: 

^-(Nn  - K,2)W0>x  - 

4,8,9 

V \xV 

- ^ w - V w 

3R  o,x  R o,y 

3,4,5 

u,yv  v.x: 

12R  (-(N“  ' N^>"o.y 

3,5,9 

U V W : 
»y  .x  ,y 

T?«N22  - N12)Uo  y - 

2N- 


o,x 


The  foregoing  coefficients  have  been  symmetrized  by  dividing 
Groups  I,  II,  and  III  by  1 , 3,  and  6,  respectively. 


Quartic  Contributions.  The  following  terms  result  from  an  expansion 
of  the  quartic  portion  of  the  strain  enerny  of  an  element. 


i = 1 


j ~ 1,  2,  ...,  6: 


* s “%v!x  - -h  V!xu,v  - TS  v,xu;y 

+ ff  “!xU!y  - 1 “IxVVv  * i W 
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w 


(N12  + N2,)NLiNL2  = 


2N>4  U"xH;y  + K “!/!x  - | 'V.x^y 

w V?y  ' a?  W - M v!xv“,y 


,y 


* Iff  ".yU!y  - re  V.*  - fTR  V!*VW,y  * J*  »*, 

- m V".y  - 4*  ***,  * jjp  W„ 

* & v:*u,y  - re  v!xu!y  + h v,xu:y  - re  “!«u!y 

- if  v:xu!y  * h v,xu!y  • ®r - & *%«;„ 

* sr  v!x  * re  vy,  1 ■■’ ' 


s “!xv 


x-  -u 


■,xj,y  - s-v!xuy 


( N i 3 + N31)NL1NL3  = 


a,>4":xv4w.y-i»,xVA. 


+ ff  u,yu,x“  y • re  w!xv  - re  v!x  ™,x 


+ w v,xV“,x  - re  V.  *>  • 


(Nl4  + M4  1 JNLjNU  = 0 , 
(Nis  + NgjNLjNLs  = 0 , 
(Nie  + NejjNLjNLg  = 0 ; 
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i = 2 


♦ .i  = 2,  3 


» • • 


6: 


f 


N22  NL2NL2  = 


"22<*  «:y  * & v^y  * ^ t £ v% 

* lV ^?y  .!«;.>  vw!y  . ^ v2 

- i v;’x"!y  * T V.*u,y  - f Vfy 

- h »*,  * ^ vw  yv3x  . £ v«>yv>xu>y 

* 4r  ™,yK;y  - v2v2x  » ^ V2V^„ 

” A?  V2U2  - — w*  >1 
8R  ,y  16 

- A-  V U3  ) 

16  ,x  ,y ' 


x »y 

* ■ & V.’xu,y  * 3?  v!x»:y 


(N23  + N32 )NL2NL  3 = 

^^2  3 (‘5’  w W3  - 1 


7 ■ R VW.xW!v  + h ™ f y 

» A 9J 


' V!xU,x“,y  + l v ..U 


1 


x'.y".XW,y  - 8 U;yW,XW,y 

1 


,X 


‘ 2R  W?vVW  v + F2  V2W 
^ -.X-.x  -4R  \xU,yVW,x  +8^  VW,x) 
(N24  + N42 )nl2nl4  = 0 


*y  * x R2  '~",xW,y  - 2V3  V3W 

+ A V2„vw  - A V u ..vw  + JL 


(N25  + N52 )nl2nl5  = 0 
(N26  + n62)nl2nl6  = 0 


1=3  , j * 3,  4,  5,  6: 


N33NL3NL3  - N33(W2  W2 
» * »y 


I W(xVW,y 


» 


(N34+  N 4 3) NL  3NL4  - 0 


(N35  + N53)NL3NL5  = 0 , 

(N36  ♦ N63)NL3NL6  » 0 . 

All  terms  for  which  i>4  and  .i_>4  are  identically  zero  because 
NL i are  zero  for  these  values  of  the  Index  1. 

The  following  unqiue,  nonzero  coefficients  a^kl  can  be  iden- 
tified. For  convenience  they  are  grouped  so  as  to  be  reoresentati ve 
of  the  character  of  the  product  of  displacement  and/or  derivatives 
with  which  they  are  associated. 


firouo  I (All  factors  in  a product  are  the  same.) 


a, 8, 8, 8 

W W W W : 
,x  ,x  ,x  ,x 

Nu/4 

5, 5, 5, 5 

V V V V : 
,x  ,x  ,x’,x 

(Nn  - 2N)2  + N22)/64 

9, 9, 9,9 

W W W W : 
.y  .y  ,y  ,y 

N22/4 

4. 4, 4, 4 

V V V V : 

N 2 2 / 4 R M 

3, 3, 3, 3 

<< 

< 

cz 

Cc 

( N , , - 2N12  + N22 )/64 
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Group  II  (Three 

factors  in  a product  are  the  same.) 

4, 9, 9, 9 

VW  W W : 

-N22/4R 

»y  »y  »y 

4, 4, 4, 9 

V V V w u : 

-N22/4R3 

3, 5, 5, 5 

U V V V : 
,y  ,x  ,x  ,x 

( -Nj  j + 2N32  - N22)/64 

4, 4, 4, 8 

V V V W : 

» A 

-N23/4R3 

3, 3, 3, 5 

U UU  U V : 

> y »y  ,y  »a 

(-Nii  + 2N x 2 “ N22)/84 

8, 8, 8, 9 

“,x“.xV.y: 

N13/4 

8, 9, 9, 9 

“,xM,yV.y: 

N23/4 

4,8, 8, 8 

V W u U : 

» A »A  |A 

-Nl3/4R 

Group  III  (Two  factors  in  a product  are  the  same: 
other  two  are  different.) 

8, 8, 3, 5 

",x“.xV.x: 

( -N 1 1 + N j 2 ) / 48 

9, 9, 3. 5 

",»”.yu.yv.*: 

(-N12  + N22)/48 

5, 5, 4, 9 

V J J u ■ 

% A 9 A » .y 

(-N12  + N22)/48R 

3, 3, 4, 9 

U u V W : 

(-Ni2  + N22 )/48R 

»y  «y  »y 

4, 4, 3, 5 

V V U,yV,x: 

(-N12  + N22 )/48R2 

8, 8, 4, 9 

W,xW,xV  W,y: 

- (N12  + 2N33)/12R 

5, 5,8,9 

V xV  xW  xW  y: 

(Nj 3 - N2 3 ) / 48 

4, 4, 8, 9 

V V w W : 

% a « jr 

N23/4R2 

9, 9, 4, 8 

W.yW,yV  W,x: 

-N23/4R 

5, 5, 4, 8 

v,xv,xv  M,x: 

(-N13  + N23)/48R 

3, 3, 8, 9 

V.yV.y: 

(N33  - N2 3 ) / 48 

3, 3. 4, 9 

u,yu.yv  “,x: 

(-N13  + N23)/48R 
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Group  IV  (Two  different  pairs  of  factors  in  a product.) 


5, 5, 8, 8, 

V vV  VW  VW  : 

» A |X  9 X |A 

(Nn  - N12)/48 

3, 3,8,8 

U U W W : 
,y  ,y  , x , x 

(Nn  - Nj2 )/48 

4, 4,9,9 

V V W W : 

.y  .y 

N22/4R2 

5, 5, 3, 3 

V V U U : 
.x  ,x  ,y  ,y 

3(NU  - 2Nl2  + N22 )/192 

5, 5,9,9 

V xV  xW  yW  y ' 

tj  »J 

(N ] 2 - N22)/48 

3, 3, 9, 9 

U U W W : 
•y  »y  »y  .y 

(N12  - 2N22)/48 

4, 4, 5, 5 

V V V V : 

» A 9 A 

(N12  - N22)/48R2 

4, 4, 3, 3 

V V U U : 
,y  ,y 

(N12  - N22)/48R2 

8, 8, 9, 9 

W W W W : 
.x  ,x  ,y  ,y 

N12/12  + N33/6 

4, 4, 8,8 

V V W,xW,x:  N12  + N22)/6R2 

Group  V (All  factors  in  a product  are  different.) 

3, 4, 5, 9 

U V V W : 
,y  ,x  ,y 

(N 1 2 - N22)/48R 

3, 5, 8, 9 

U yV  xW  xW  y ' 

9J 

(-N, 3 + N2  3 )/ 48 

3, 4, 5, 8 

U..vV  V,xw,x: 

(N13  - N23)/48R 

The 

coefficients  ai  ^k-| 

are  completely  symmetrized  by  dividing 

Groups  I 

II,  III,  IV,  and 

V by  1,  4,  6,  12,  and  24,  respectively. 
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APPENDIX  B 


FINITE-DIFFERENCE  FORMULAS 

Finite-difference  formulas  required  to  express  the 
displacement  components  and  their  derivatives  at  the  centroid 
of  an  element  are  described  below.  One-dimensional  representa- 
tion for  function  value  and  its  First  and  second  order 
derivatives  are  given  for  both  the  x-  and  y-  directions. 

The  procedure  used  to  obtain  two-dimensional  centroidal 
function  values  and  first  and  second  order  partial  derivatives 
from  the  one-dimensional  formulas  is  also  described. 

The  symbol  ( ) is  used  to  denote  a centroidal  quantity 

and  f.  signifies  function  values  at  nodal  stations  for  one- 
dimensional expressions,  while  g.  signifies  function  values 
at  nodal  stations  associated  with  the  two-dimensional  finite- 
difference  grid.  Finally,  the  notations  ( )'  and  ( ) 

signify  differentiation  with  respect  to  x or  y,  respectively. 

ONF.- DIMENSIONAL  FINITE-DIFFERENCE  FORMULAS 
Forward  Difference  Formulas:  X-direction. 

f * alfi+2  + a2fi+l  + a3fi*  (R-la) 

f'  = a4fi+,  + + a6ft»  (B-lb) 

f"  - a 7 1 £+2  + a8fi+l  + a9fi;  (B-lc) 

where 


3 h2 

ai  “ “ 16  k(h+k)  ’ 

1 h 

a4  " " 2 k(h+k)  ’ 

2 

a?  k(h+k)  • 

1 k+3/4h 

a2  “ 4 k ’ 

hk  ’ 

*•  • - is  • 

3 k+3/4h 

®3  “ 4 h+k 

k-*-3/2h 

86  “ h(h+k)  ’ 

2 

39  h(h+k)  • 

(B-2) 

Formulas  (B-l)  are  obtained  via  a Taylor  series  expansion  about 
the  centroid  of  the  shaded  area  of  Figure  (B-l) 

Backward  Difference  Formulas:  x-direction 


f “ blfl-2  + b2fi-l  + b3fi’ 

(B-3a) 

f " — - b3^i-l  ~ b6^» 

(B-3b) 

f “ b?fi-2  + b8^i_l  + b9fi  * 

(B-3c) 

The  bj  are  obtained  from  formulas  (B-2)  by  interchanging  h 
and  k . 

For  ward  Difference  Formulas:  v-direction . 
f = c i f j_2  + c2f i_l  + c 3 f j , (B-4a) 

f'  - + c5fj_1  + c6fj»  (B-4b) 
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f"  - + cef^j 


(B-4c) 


+ C9f j * 


The  ci  are  obtained  from  formulas  (B-2)  by  setting  h = i and 
k = m . 


Backward  Difference  Formulas:  v-di rect ion. 


f - djfj  2 + d2fj_1  + d3f1  , 

(B-5a) 

f - ~d4f  j_2  - d5fj_1  - , 

(B-5b) 

f “ d?fj-2  + d8fl-l  + d9f j • 

(B-3c) 

The  dj  are  obtained  from  formulas  (B-2)  by  setting  h = m and 
k = t . 
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«•  *1  >'1U'>1».  tu*,i»V!*  , U , . » <*  pi.M  - i ^ Mi"!  H 

B — --  - - - - T- 

[ 

Central  Difference  Formulas:  x- direct  ion. 


61  f i+1  + e2fi  + e 3 f i_ i » 

(B-6a) 

e6^_^  » 

(B-6b) 

(B-6c) 

where : 


(k-h) (3h+k) 

e4  = 

1 

f _ 2 

el  * 

16k(h+k)  » 

2k  ’ 

7 k(h+k) 

e2  = 

(h+3k) (3h+k) 

16  hk 

e5  = 

1 1 

2h  * 2k’ 

2 

68  = “hk’ 

e3  ” 

(k-h) (3k+h) 

e6  " 

1 

2 

16h  (h+k)’ 

2h’ 

69  h(h+k) ’ 

Central  Difference  Formulas:  y-direction. 


flfjfl  + f2fj  + f3f j-1  ’ 

(B-8a) 

(B-8b) 

f?f j+1  + f®fj  + f9fj-l  * 

(B-8c) 

The  fj  are  obtained  from  the  coefficients  given  in  Fas. 
by  setting  h = l and  k - m. 


(R-7) 
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Two-Dimensional  Finite  Difference  Formulas 

Two-dimensional  finite-difference  formulas  are  not  developed 
explicitly  for  all  9 types  of  elements.  However,  the  procedure 
used  to  obtain  them  is  demonstrated  explicitly  for  the  centroidal 
function  value  for  an  exterior  boundary  element.  First  and 
second  order  partial  derivatives  are  obtained  in  a similar 
manner . 

The  two-dimensional  function  value  for  the  left  exterior 
boundary  element  shown  in  Figure  7 is  developed  as  follows. 

The  one-dimensional  centroidal  function  value  expressed  in 
terms  of  discrete  values  at  the  intersections  of  a horizonal 
line  through  the  centroid  with  the  finite-difference  grid 
lines  in  the  y^-direction  is: 

f “ ai  fi+2  + a2  f1+1  + a3f1-  (B-9) 

Applying  Fq . (B-8a)  along  lines  i + 2,  i+1,  and  i,  successively, 
yields : 

f " 31  {fl  8 1+2, j+1  + f28i+2,j  + f38i+2,j-l} 

+ a2{flgi+l,j+l  + f28i+l,  1 + f38i+1,j-i> 

+ a3{fl8i,.1+l  + f2»l,  j+  f38i,>l>- 


According  to  the  adopted  element  numbering  scheme  (Figure  7) 

the  quantities  g^  can  be  designated  by  g^,  i = 1,2,  , 9. 

Thus, 

f - ajfjgi  + a2f2g2  + a3f2g3  + a2fl84 

+ a2f385  + a3f386  + a3fl87  + alfl88  + alf389.  (B-ll) 

f - bu  gt  ; i - 1,2, , 9.  (B-12a) 

The  definitions  of  the  bjj  are  obvious  from  a comparison  of 
Eqs . (B-ll)  and  (B-12). 

Now  first  and  second  order  partial  derivatives  are 


obtained  in 

the  same  manner,  hence: 

f'  - b2igi’ 

(B-12b) 

f " b3igi’ 

(B-12c) 

“ b4igi’ 

(B-12d) 

V " b51gi* 

(B-12e) 

and 

f = b6igl* 

(B— 1 2 f ) 

According  to  F.qs.  (B-12)  one  obtains  a transformation 
of  the  form: 

[f]  - [b]  [g] . (B— 13) 
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APPENDIX  C 
USER  GUIDE 


This  appendix  contains  information  describing  the  cards  that  must  be 
prepared  by  the  program  user  and  the  outnut  information  to  be  expected. 


INPUT  FORMATION 


Information  to  be  provided  by  the  user,  and  the  format  in  which  it 
must  appear,  is  presented  in  this  section. 


1.  RUN  CARD  (15) 
Columns  1-5 


Number  of  the  run.  (I RUN) 


It  may  be  convenient  to  generate  the  load-deflection  curve  in  dis- 
tinct segments  because  approximate  computer  time  to  make  a complete 
analysis  is  unknown.  IRUN  is  an  index  that  signifies  the  number  of 
the  segment  under  consideration. 

1 first  run 

IRUN  = 2 second  run  - continuation  of  the  first  run. 


2.  TITLE  CARD  (13A4) 
Columns  1-72 


Problem  Identification 


3.  CONTROL  CARD  (2110,315) 


Columns  1-10 
11-20 


21-25 


Number  of  elements  (NEL  = 244  maximum) 

Number  of  nodal  noints  (NUMNP  = 240  maximum) 
Index  that  indicates  the  absence  or  presence  of 
initial  imperfection. 


IEX  = 


without  initial  imperfections 


1 with  initial  imperfections 
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26-30 


Index  that  selects  the  linear  bifurcation 
analysis. 


IBIF  = 4 


0 nonlinear  analysis 

1 linear  bifurcation  analysis  only  a 


31-35 


Index  that  indicates  whether  the  structure  is 
flat  plate  or  curved  panel. 


NFLAT  = 4 


0 flat  plate 

1 curved  panel 

4.  RADIUS/CONVERGENCE  CARD  (2F10.0) 

Columns  1-10  Radius  of  curvature  in  inches  (R) 

11-20  Convergence  criterion  for  the  modified  Newton- 

Raphson  iterative  Drocedure.  Program  terminates 
if  convergence  at  any  load  level  has  not  occurred 
after  UMAX  iterations.  EPSI  specifies  acceptable 
increment  of  displacements. 

5.  IMPERFECTIONS  CARD  (5F10.0) 

Columns  1-10 

11-20  Wave  number  in  x-di recti  on. 

21-30  Wave  number  in  y-di recti  on. 

31-40  x-coordinate  of  the  lower  left-hand  corner  of 

panel . 

41-50  y-coordinate  of  the  lower  left-hand  corner  of 

panel . 

One  card  is  required.  A blank  card  is  required  if  there  are  no  initial 
imperfections. 


Amplitude  WQ,  of  the  initial  imperfection. 
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6.  NODAL  NUMBERING  SCHEME/CUTOUT  CARD  (815) 


Columns 


r 


1-5 

NSCHM  ) 

* 1 

Nodes  numbered  consecutively 
the  y-direction 

in 

t 1 

Nodes  numbered  consecutively 

in 

- 

the  x-direction 

r 

--  l 

Panel  has  a cutout 

6-10 

ICTOUT  ■* 

t i 

Panel  does  not  have  a cutout 

11-15 

NROWS 

Number  of  rows  of  node  points 

16-20 

NCOLS 

Number  of  columns  of  node  points 

21-25 

I ROW! 

Row 

number  of  the  row  in  which  the 

side  of  the  cutout  nearest  the  row- 
baseline  for  the  panel  lies. 

26-30  IR0W2  Row  number  of  the  row  in  which  the 

side  of  the  cutout  furtherest  from 
the  row-baseline  for  the  panel  lies. 

31-35  IC0L1  Column  number  of  the  column  in  which 

the  side  of  the  cutout  nearest  the 
column-baseline  for  the  panel  lies. 


7.  ELEMENT  TYPE  CARD  (1015) 

Element  type  designators  for  10  elements  appear  on  each  card. 

ITYPE  = 1 Left  exterior  or  right  interior  boun- 
dary element. 

ITYPE  = 2 Top  exterior  or  bottom  interior  boun- 
dary element. 

ITYPE  = 3 Right  exterior  or  left  interior  boun- 
dary element. 

ITYPE  = 4 Bottom  exterior  or  top  interior  boun- 
dary element. 
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ITYPE  = 5 Interior  boundary  element. 
ITYPE  = 6 Upper  left  corner  element. 
ITYPE  * 7 Upper  right  corner  element. 
ITYPE  = 8 Lower  left  corner  element. 
ITYPE  = 9 Lower  right  corner  element. 

8.  ELEMENT-NODAL  POINT  COORDINATION  CARDS  (1015) 

Columns  1-5  Primary  nodal  point  associated  with  area 

element  M = 1 . 

6-10  Primary  nodal  point  associated  with  area 

element  M = 2. 


46-50  Primary  nodal  point  associated  with  area 

element  M = 10. 

A card  is  required  for  every  10  area-elements.  Last  card  may  contain 
data  for  less  than  10  area-elements.  If  there  is  no  cut-out  then  an  area- 
element  label  number  and  its  primary  node  point  label  number  are  identical. 

9.  NODAL  COORDINATE  CARD  (I5.2F10.0) 

Columns  1-5  Nodal  point  number  (N) 

6-15  x-coordinate  of  nodal  point  N (inches). 

16-25  y-coordinate  of  nodal  point  N (inches). 

One  card  for  each  nodal  point  is  required. 

10.  ELEMENT  LOAD  CARD  (I5.3F10.0) 

Columns  1-5  Element  number  (M) 

6-15  Centroidal  load  intensity  in  the  z- direction 
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16-25 


(normal  to  reference  surface),  lb/ in2. 
Centroidal  load  intensity  in  the  x-direction 
(along  a generator),  lb/in2. 

26-35  Centroidal  load  intensity  in  the  y-direction 

(along  a cross  section  circle),  lb/in2. 


One  card  is  required  for  each  area  element.  The  program  multiplies  the 
load  intensity  at  the  centroid  of  the  area  element  by  the  element  area  and 
assumes  the  resultant  acts  at  the  centroid  of  the  area  element. 

11.  LOAD  INCREMENT  CARD  (3F10.0) 


Columns 

1-10 

ZINCR  - Load  Increment  in  z-di recti  on. 

11-20 

XINCR  - Load  Increment  in  x-direction. 

21-30 

YINCR  - Load  Increment  in  y-direction. 

BOUNDARY 

CONDITON  CARD  (15,315) 

Columns 

1-5 

Element  number  (M) . 

6-10 

Boundary  condition  index  for  the  z degree 

of 

freedom. 

11-15 

Boundary  condition  index  for  the  x degree 

of 

freedom. 

16-20 

Boundary  condition  index  for  the  y degree  of 

freedom. 

One  card  is  required  for  each  element  (including  interior  elements). 
The  boundary  condition  index  has  the  following  meanings: 


0 


Boundary  condition  index  = < 


1 


zero  force 
zero  displacement 


The  zero  force  boundary  condition  implies  that  either  Qn<  Np,  N^t  (generalized 
transverse  shear  force,  normal  force,  or  shearing  force)  is  zero  according  as 
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to  whether  it  applies  to  the  z,  x,  or  y degree  of  freedom. 


13.  NUMBER  OF  LAYERS  CARD  (15) 

Columns  1-5  Total  number  of  layers  (KN). 

14.  LAYER  POSITION  CARDS  (F10.0) 

Columns  1-10  Distance  (inches)  of  the  surface  nearest  the 

center  of  curvature  from  the  reference  surface 
for  each  layer.  First  layer  is  considered  to 
be  the  one  nearest  the  center  of  curvature. 
Distances  measured  toward  the  center  of  curva- 
ture are  negative. 


One  card  is  required  for  each  layer.  Accordingly,  there  will  always  be 
KL  = KN  + 1 cards  required. 

15.  MATERIAL  PROPERTIES  CARDS  (6F10.0) 

Columns  1-10  Modulus  of  elasticity  parallel  to  the  fibers  of 

a given  layer  (lb/in2). 

11-20  Modulus  of  elasticity  perpendicular  to  the  fibers 

of  a given  layer  (lb/in2). 

21-30  Poisson  ratio  associated  with  strain  parallel  to 

the  fiber  axis  due  to  a stress  normal  to  the  fiber 
axis. 

31-40  Poisson  ratio  associated  with  strain  perpendicu- 

lar to  the  fiber  axis  due  to  a stress  parallel  to 
the  fiber  axis. 

41-50  Shearing  modulus  of  elasticity  (lb/in2). 
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51-60 


Angle  between  the  fiber  direction  and  a genera- 
tor of  the  panel.  This  angle  is  positive  when- 
ever the  fiber  direction  is  situated  in  a clock- 
wise orientation  relative  to  the  positive 
x-di recti  on. 

One  card  is  required  for  each  layer  of  the  panel.  Isotropic  materials 
can  be  included  by  specifying  a single  layer. 


r f'/C  0 LS  

IC0L1  -IC0L2. 

1 a J 4 


io  i/  it 


For.  huhSEK/VG  of 
NODES  THCL  X.-  DlRECr/eW 
NSCHM  7*  i- 


FOft  t>F 

nodes  /n 

y-  D/KccrVerJ  M5CHM-  i 


/Vorvr  i/vismbekSMus  t- 
6K.IP 


OR  NS /A//)  te.  4T  THE 
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OFFER  <L£FT-  F/fNE>  CORNER  Or  THE 


OUTPUT  INFORMATION 


■I 


Information  printed  by  the  program  is  described  in  this  section. 

1.  Problem  identification. 

2.  Radius  of  curvature  of  the  panel  and  the  convergence  crltierion 
for  displacements. 

3.  Global  nodal  incidences  for  each  area  element. 

4.  Semi -bandwidth  associated  with  the  finite  difference  mesh  se- 
lected. (Maximum  value  of  LBAND  + 1 is  82). 

5.  x-  and  y-coordinates  of  each  nodal  point. 

6.  Applied  load  intensity  for  each  element  at  each  load  level. 

7.  Total  number  of  layers  comprising  the  panel  thickness. 

8.  Distance  of  the  surface  nearest  the  center  of  curvature  for  each 
layer  from  a selected  reference  surface. 

9.  Material  properties  for  each  layer.  (Elastic  moduli  1 parallel  and 
perpendicular  to  the  fibers,  shearing  modulus  of  elasticity,  and 
two  Poisson  ratios.) 

10.  Element  material  property  matrix  ELN  (6,6): 


(A] 

[B] 

(ELN] 

c 

_[B] 

(D]_ 

11.  Load  level  and 

iteration 

number. 

12.  Displacements  W,  U,  V for  each  nodal  point  of  the  finite-difference 
grid  for  each  load  level. 
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13.  Normalized  displacement 

I |w|  ! » iwt2 

14.  Determinant  of  the  derivative  matrix  at  the  beginning  of  each 
load-level  and  at  those  iterations  for  which  the  derivative 
matrix  has  been  up-dated. 

15.  A message  Is  printed  if  convergence  at  any  load-level  falls  to 
be  achieved  after  8 Iterations.  The  analyst  must  analyze  the 
load-deflection  curve  for  a specific  problem  to  determine  if 
bifurcation  or  limit  point  buckling  has  occurred.  Bifurcation 
buckling  Is  detected  by  plotting  the  determinant  vs  load  dia- 
gram. Limit  point  buckling  is  detected  by  a local  maximum  on  the 
load-deflection  curve. 

16.  Run  number. 

17.  Total  number  of  blocks  of  equations. 


PROGRAM  CAPACITY:  The  program  with  Its  present  dimension  statements  can 
handle  a maximum  of  244  area-elements.  240  finite-difference  grid  points, 
and  an  equation  system  of  maximum  bandwidth  equal  to  81.  To  Increase 
the  program  capacity  changes  In  array  dimensions  listed  below  must  be 
made. 


1. 

X (NUMNP) 

NUMNP  = Total  number  of  grid  points 

2. 

Y (NUMNP) 

3. 

ID  (BP) 

BP  ■ 6 * (Number  of  boundary  points) 

4. 

NODE  (NEL,  9) 

NEL  ■ Total  number  of  area-elements 

5. 

I TYPE  (NEL) 

6. 

PLOAD  (NEL,  3) 

7. 

PINCR  (NEL,  3) 

8. 

PINCO  (NEL,  3) 

9. 

IBC  (NEL,  3) 

10. 

MAXA  (MI) 

MI  = LBAND  + NEQB  - 1 

11. 

MAXB  (MI) 

12. 

AK  (3*NEQB,  NEQB) 

NEQB  * Number  of  equations  per  block 

13. 

NODES  (NEL) 

(NEQB  should  be  greater  than  or  equal  to 
LBAND.  cnange  NEQB  according  to  the  size 

14. 

CC  (NEQB) 

of  the  bandwidth  of  the  system.) 

15. 

PI  (NAV) 

NAV  = NEQB*  (LBAND  + 1) 

16. 

P2  (NAV) 

17. 

D (NAV) 

18. 

SC  (NBLOCK) 

NBLOCK  * Total  number  of  blocks  of  equations 

19. 

Q (NAR) 

NAR  = NEQB  * NBLOCK  + LBAND 

20. 

P6  (MI) 
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Procedure  Used  to  Generate  The 


Load-deflection  Curve  in  Segments 

Occasionally,  it  is  difficult  to  generate  the  entire  load-deflection 
curve  in  a single  computer  run.  The  present  program  has  the  capability 
of  generating  the  load-deflection  curve  in  separate  segments.  This  pro- 
cedure uses  two  subroutines,  STIME  and  TTIME,  that  are  available  in  the 
scientific  subroutine  library  at  the  Clemson  University  Computer  Center. 
The  user  is  therefore  advised  to  refer  to  the  manuals  on  scientific  sub- 
routines for  corresponding  subroutines. 

Subroutine  STIME  (INDEX) 

This  routine  initializes  the  computer  time  at  the  beginning  of  the 
program. 

Subroutine  TTIME  (INDEX) 

This  routine  calculates  the  exact  computer  time  involved  from  the 
initialization  point  and  stores  it  in  INDEX.  There  on  every  time  this 
routine  is  called  it  adds  to  the  previous  value  of  Index  the  current 
increment  of  time  and  stores  it  in  Index.  Index  is  an  integer  which  is 
expressed  as  units  of  26.01  microseconds  of  the  computer  time. 

IT IME  - Maximum  value  of  the  computer  time  allocated  by  the  user  for  a 
particular  computer  run.  It  is  an  integer  value  expressed  as  units  of 
26.01  microseconds.  If  INDEX  is  greater  than  the  1TIME,  the  current 
variables  which  are  needed  to  generate  the  next  segment  are  stored  on 
the  tape  NTAPE  and  the  program  is  terminated.  Subroutine  TTIME  is  called 
only  after  each  load-level  and  so  the  value  of  I T I ME  should  be  less  than 
the  time  specified  on  the  job  control  card. 
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FAST  STORAGE  ALLOCATION 


The  total  program  storage  requirement.  Including  program  Instruc- 
tions and  array  requirements.  Is  272K  bytes.  The  following  Information 
Indicates  the  storage  requirements  for  the  various  arrays  that  appear 
In  the  program. 


1.  Maximum  number  of  finite-difference 
grid  points  Is  240.  Accordingly, 
x(240) 
y(240) 


2.  Maximum  semi -bandwidth  plus  one 
column  for  a load  vector  Is  81, 
Accordingly,  fast  storage  allocated 
to  the  generation  of  the  stiffness 
matrix  Is: 

AK(246,82) 


3.  The  entire  displacement  vector  Is 
required  to  be  in  fast  storage. 
Also  working  space  Is  required  to 
process  displacements  associated 
with  a block  of  equations.  Thus, 
Q( 850) 

CC(100). 


Fast  storage 
requirement 
(bytes) 

IK 

IK 


81 K 


4K 


4.  Arrays  whose  dimensions  are  permanent.  36K 
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5.  Maximum  number  of  area-elements  is  244. 
Accordingly,  space  is  required  for: 

NODE (244, 9) 

PL0AD(244,3) 

PINCR(244,3) 

IBC  (244 , 3) 

ITYPE ( 244 ) 

PINC0(244,3) 

NODES (244) 

6.  An  auxill iary  matrix  for  processing 
boundary  conditions  is  required.  Thus, 

I D( 400) 

7.  Maximum  number  of  blocks  of  equations 
is  10. 

8.  Subroutines  MULTOC  and  SESOL  require 
fast  storage  working  space  of: 

MAXA( 1 70) 

MAXB( 1 70) 

P6( 100) 

The  working  arrays  PI,  P2  and  D are 
equivalenced  to  the  matrix  AK  and 
so  extra  storage  space  is  not  needed. 

9.  Working  area  in  ATBA: 

BB(12 ,27) 

10.  Storage  for  material  properties  and 


23K 


2K 


2K 


2K 
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material  stiffness  matrix 

QOO.3,3) 

A(3,3) 

B(3,3) 

D(3,3) 


Total  Array  Storage  Requirements  153K 
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appendix  d 

SUBROUTINE  DESCRIPTIONS 


Appendix  D contains  brief  descriptions  of  the  overall  purposes  of  the 
subroutines  used  by  the  main  program  with  detailed  explanations  of  the 
various  parameters  that  appear  in  their  argument  lists. 


1.  SUBROUTINE  ATBA  (A.B.C) 


Description.  Subroutine  ATBA  computes  the  triple  matrix  oroduct: 
fCl  * f AlTfB]f A] 


Arguments.  The  parameters  appearing  in  the  argument  list  are 
denned  as  follows: 

A Matrix  of  dimensions  27  x 27 

B Matrix  of  dimensions  12  x 27 

C Matrix  of  dimensions  27  x 27 

The  matrix  [A]  in  the  triple  matrix  product  required  at  all  points  of  the 
present  program  has  a special  form  for  which  two  thirds  of  its  elements  are 
zero.  Consequently,  special  coding  was  devised  to  take  advantage  of  the 
special  character  of  [A]. 


2.  SUBROUTINE  BCS  (A.B.MAXA.NAV.NEQB,  LBAND, MI ,KEX,NBLOCK,NC,ND,MAXB) 

Description.  Subroutine  BCS  establishes  support  conditions  along 
exterior  and  interior  edges  of  the  panel.  Permissible  edge  condi- 
tions are  either  zero  force  or  zero  displacement  for  each  degree 
of  freedom  at  each  boundary  point. 

Arguments . Parameters  appearing  in  the  subroutine  argument  list 
are  defined  as  follows: 

A 
B 

NAV 
NEQB 
MAXA 
MAXB 
MI 

LBAND 
NBLOCK 
KEX 


Vector  of  dimension  NAV 
Vector  of  dimension  NAV 
NEQB  x (LBAND  + 1) 

Number  of  equations  in  a block 
Vector  of  dimension  MI 
Vector  of  dimension  MI 
NEQB  + LBAND  - 1 
Maximum  semi -bandwidth 
Number  of  blocks  of  equations 
Index  that  determines  when  refactoriza- 
tion of  the  coefficienty  matrix  is  re- 
quired. If  KEX  = 1 no  refactorization 
is  required;  if  KEX  = 2 refactorization 
is  required. 


NC  Tape  number  on  which  the  derivative 

of  the  stiffness  matrix  and  load  vec- 
tor are  written  before  boundary  con- 
ditions have  been  applied. 

ND  Tape  number  on  which  the  derivative  of 

the  stiffness  matrix  and  the  load  vector 
are  written  after  boundary  conditions 
have  been  applied. 

ID  Vector  whose  elements  are  the  numerical 

labels  associated  with  equations  to 
which  displacement  boundary  conditions 
are  to  be  applied.  This  vector  is 
determined  in  Subroutine  BCID. 

IK  Total  number  of  equations  to  which  dis- 

placement boundary  conditions  are  to  be 
applied.  This  quantity  is  determined 
in  the  Subroutine  BCID. 


3.  SUBROUTINE  BCID  (NEL,NEQ,NBLOCK,NEQB,KBLOCK,NN) 

Description.  Subroutine  BCID  generates  a vector,  ID,  whose  elements 
are  the  numerical  labels  associated  with  system  equations  to  which 
displacement  boundary  conditions  are  to  be  applied.  BCID  also  deter 
mines,  NN,  the  last  nonzero  diagonal  element  of  the  last  block  of 
equations. 

Arguments.  Parameters  appearing  in  the  subroutine  argument  list 
are  defined  as  follows: 

NEL 
NEQ 

NBLOCK 
NEQB 
KBLOCK 

NN 


4.  SUBROUTINE  COEFF  (NFLAT) 

Description.  This  subroutine  calculates  elements  of  the  matrices 
PA2(12,l2T,  PA3(12,12,12),  and  PA4(12,12,12,12)*.  These  matrices 
depend  only  upon  the  material  property  matrix  ELN(6,6)  and  the 
radius  of  curvature  R. 

Arguments . NFLAT  Index  that  designates  either  a flat 

plate  or  a curved  panel. 


Total  number  of  area- elements. 

Total  number  of  degrees  of  freedom  of 
the  system. 

Number  of  blocks  of  equations. 

Number  of  equations  in  a block. 

Number  of  the  block  that  contains  the 
last  nonzero  diagonal  element. 

Label  number  of  the  equation  that  corre- 
sponds to  the  last  nonzero  diagonal  ele- 
ment of  the  stiffness  matrix. 
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PA2 (12,12)  Matrix  of  coefficients  associated  with 

quadratic  displacement  terms  in  the 
energy  expression. 

PA3( 12,12,12)  Matrix  of  coefficients  associated  with 
cubic  displacement  terms  in  the  energy 
expression. 

PA4 (12.12,12,12)*  Matrix  of  coefficients  associated  with 

quartic  displacement  terms  in  the  energy 
expression. 

*This  array  has  been  replaced  by  15  two-dimensional  arrays. 

5.  SUBROUTINE  ELMNT  (M.NDQK) 

Description.  This  subroutine  calculates  the  stiffness  matrix 
QK(27,27),  its  derivative  DQK(27,27),  and  the  element  load  vector 
RE (27)  for  each  area  element.  The  basic  equations  are  as  follows: 

Stiffness  matrix; 

QK(I,J)  = (CA2(I,J)  + BN1 ( I ,J)/2  + BN2(I,J)/3)*AREA 
Derivative  matrix; 

DQK(I.J)  = (CA2( I ,J)  + BNl(I.J)  + 3N2( I ,J) )*AREA 

The  matrices  appearing  in  these  expressions  are  calcuated  from 
the  equations: 


[CA2]  = 


[C]  f PA2 ] [ C ] - without  imperfections 

t C ] T f PA2T ] f C ] - with  imperfections 


[BN1 ] = [C]T[ AN1 ] [C] 


3PA3.  ..  d. 

[ AN1  ] = 1jk  k 


without  imperfections 


3PA3T ^ j p^d^  - with  imperfections 


[ BN2 ] = [C]  [AN2] [C] 


fAN2]  = 6 PAAt.^.d^d.  - with  or  without  imperfections 
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Arguments.  Arguments  appearing  in  the  subroutine  parameter  list 
have  the  following  meanings: 


M 

NDQK 


Number  of  area  elements  to  be  processed. 
Tape  number  on  which  the  elements  of  the 
derivative  of  the  element  stiffness  ma- 
trix are  stored. 


*PA4(K,J,K,L)  has  been  replaced  by  15  two-dimensional  arrays. 

6.  SUBROUTINE  ELPROP 

Description.  This  subroutine  computes  the  stiffness  properties 
associated  with  the  panel  wall  construction.  The  Dertinent  rela- 
tions are: 


V 

V 

Ny 

[A] 

[b: 

ey 

Nxy 

2exy 

Mx 

Kx 

M 

y 

[B] 

(d: 

Ky 

-V 

2K 

xy_ 

where 


Aij 


KN 

^ Qj-j  -h  ) 

k=l  1J  '"k  nk-l\ 

(•0^2  u2  ' 


and 


D . . = T 


KN 

7*r 

II  M 

'Q~i 

KN 

£ 

k=l 

*1 

(k), 
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INPUT. 


KN 
H ( K) 


El,  E2 , 
G,  TT 


Total  number  of  layers 
Distance  of  the  surface  of  the  k-th 
layer  nearest  the  center  of  curvature 
from  the  reference  surface. 

ENU1,  ENU2,  - Elastic  modulii,  Poisson's 
ratios,  shear  modulus,  and  fiber  orien 
tation,  respectively.  These  six  quan- 
tities are  to  be  input  for  each  layer. 


OUTPUT.  The  material  stiffness  matrix  is  returned  to  the  main 
program  in  the  array  ELN( 6,6). 


7.  SUBROUTINE  FDIFF  (NEL .NUMNP ,NX1 ,NC2,W0,C0NS1 ,C0NS2 ,X0,Y0,IEX, IPA3T) 


Description.  This  subroutine  computes  the  element  area,  element 
centroid,  and  the  finite  difference  formulas  for  the  centroidal 
displacements  and  their  derivatives  for  each  type  of  element  (inter- 
ior or  boundary  element).  The  pertinent  relation  is: 


,x 


\xx 


.xy 


.yy 


= [B] 


Wi 

Ui 

v i 
w2 
u? 
v2 


w9 

u9 

v9 


Arguments.  Parameters  appearing  on  the  subroutine  argument  list 
are  defined  as  follows: 
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NEL  Number  of  area  elements. 

NUMNP  Number  of  nodal  points  In  the  finite- 

difference  grid. 

NX1  Tape  number  upon  which  the  matrix  [111 

and  the  area  for  each  element  are  written. 

NC2  Tape  number  upon  which  the  matrix  ( CA? ] 

Is  written  for  each  element. 

WO  Amplitude  of  Initial  geometric  Imperfec- 

tion. 

C0NS1  Value  of  mn/a,  where  a Is  the  length  of 

the  panel  parallel  to  a generator. 

CONS?  Value  of  n«/b,  where  b Is  the  width  of 

the  panel  parallel  to  a cross  sectional 
circle. 

XO.YO  Coordinates  of  the  corner  of  the  panel 

nearest  the  origin  of  the  x,y  system. 

1EX  Index  that  determines  whether  or  not  an 

Imperfection  analysis  Is  to  be  performed. 

IPA3T  Tape  number  upon  which  the  matrix  [PA.TT] 

■ f PA3 1 + [PA3I]  Is  written  for  each  area 
element . 

B(6.9)  6x9  matrix  that  contains  the  finite- 

difference  coefficients  that  express  a 
function  value  or  Its  derivative  value  as 
a linear  combination  of  the  local  nodal 
displacements. 

AREA  Element  area. 


Notes . 


ITYPE 
1TYPE 
ITYPE,- 
ITYPE (4 
ITYPE 
ITYPE, - 
ITYPE  7 
I TYPE l M 
ITYPE (9 


1 - left  exterior  or  right  interior  boundary  element. 

2 - Top  exterior  or  bottom  Interior  boundary  element. 

3 - Right  exterior  or  left  Interior  boundary  element. 

4 - Bottom  exterior  or  top  Interior  boundary  element. 

5 - Interior  boundary  element. 

6 - Upper- left  corner  element. 

7 - Upper-right  corner  element. 

8 - Lower-left  corner  element. 

9 - Lower-right  corner  element. 


8.  SUBROUTINE  I BAND  (L BAND. NEL) 

Description.  Subroutine  1BAND  determines  the  semi -bandwidth  of  the 
system  stiffness  matrix.  The  semi -bandwidth  Is  calculated  from  the 
formula 


LBAND  • 3* (LARGE  +1). 

where:  LARGE  - MAX0(ABS(N0DE(M.9)  - (NODE(M.V)) 

over  all  area  elements. 


LBAND  Semi -bandwidth  for  the  system  stiffness 

matrix. 


: 
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NEL 


Total  number  of  area  elements. 


9.  SUBROUTINE  IMCOEF  (NC2,IPA3T,XC,YC,W0,C0NS1 ,C0NS2,X0,Y0,NFIAT) 

Description.  This  subroutine  calculates  the  coefficients  associated 
wUh  quadratic  and  cubic  displacement  terms  in  the  energy  expression 
due  to  initial  geometric  imperfections.  These  coefficients  depend 
only  upon  the  material  property  matrix  ELN(6,6),  the  radius  of  cur- 
vature R,  and  the  initial  geometric  imperfections. 

This  subroutine  also  adds  the  contributions  of  PA2(12,12)  to 
the  coefficients  associated  with  quadratic  displacements  due  to 
initial  imperfections  PA3(12,12)  and  PA3T (12,12,12) . 


Arguments.  Arguments  appearing  in  the  subroutine  parameter  list 
have  the  following  meanings: 


NC2 

IPA3T 

NFLAT 

XC.YC 

WO 

C0NS1.C0NS2 

XO.YO 


Tape  number  on  which  the  elements  of 
CA2  are  written  (i.e.,  linear  portion 
of  the  stiffness  matrix). 

Tape  number  on  which  the  elements  of 
PA3T  are  written  for  each  element. 

Index  that  designates  either  a flat  plate 
or  a curved  panel . 

x-  and  y-  coordinates  of  the  centroid 
of  an  element. 

Amplitude  of  initial  geometric  imper- 
fections. 

Constants  associated  with  the  form  of 
the  imperfection. 

x-  and  y-  coordinates  of  the  lower  left- 
hand  corner  of  the  panel. 


10.  SUBROUTINE  MULTOC  (A,B,C,D,Q,MAXA,NAV,NEQB ,NAR,LBAND,NBL0CK,M1 , 

NSTIF,KSTIF,NC ,KEX) 

Description.  This  subroutine  multiples  a vector  x by  a square 
matrix  A.  The  entire  vector  x is  assumed  to  be  contained  in  fast 
storage,  while  the  square  matrix  A is  brought  into  core  by  blocks. 

Arguments.  Arguments  appearing  in  the  subroutine  parameter  list 
have  the  following  meanings: 


A,B,C, 

Vectors  of  dimension  NAV 

C 

Vector  dimension  NEQB 

Q 

Vector  dimension  NAR 

NEQB 

Number  of  rows  in  a block. 

LBAND 

Semi -bandwidth  of  the  coefficient 
matrix. 

NBLOCK 

Number  of  equal  blocks  into  which  the 
coefficient  matrix  is  partitioned. 
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NAV 

NAR 

NSTIF 


NEQB*(LBAND+1) 

NEQB*NBLOCK+LBAND 

Tape  number  on  which  the  stiffness  matrix 


KSTIF 

NC 


MAXA 

MI 

KEX 


is  written. 

Tape  number  on  which  the  derivative  of 
the  stiffness  matrix  is  written. 

Tape  number  on  which  the  result  of  the 
multiplication  Is  written.  Each  file  on 
this  tape  contains  the  derivative  of  the 
stiffness  matrix  as  its  first  LRAND 
columns  and  the  result  of  the  multiplica- 
tion as  the  LBAND+1  column  for  a single 
block. 

Vector  of  dimension  MI 
NEQB+LBAND-1 

Index  that  determines  when  refactoriza- 
tion of  the  coefficient  matrix  is  required. 
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SUBROUTINE  SESOL  (A.B .MAXA, NEQ.MA.NV .NBLOCK.NEQB , NAV , MI .NSTIF ,NRED, 
NL.NR.KBLOCK.NN.KEX.MAXB.DET) 


Description.  This  subroutine  solves  a banded,  symmetrical  set  of 
linear  algebraic  equations. 


Arguments.  Arguments  appearing  in  the  subroutine  parameter  list 
have  the  following  meanings: 


A.B 

Vectors  of  dimensions  NAV 

MAXA.MAXB 

Vectors  of  dimension  MI 

NEQ 

Total  number  of  equations 

MA 

Semi -bandwidth 

NV 

Number  of  load  vectors  (for  this  pro- 
gram NV=1 ) 

NBLOCK 

Number  of  matrix  blocks  into  which  the 
coefficient  matrix  is  partitioned. 

NEQB 

Number  of  equations  in  a block. 

NAV 

NEQB*(MA+1 ) 

MI 

LBAND+NEQB-1 

NSTIF 

Tape  number  on  which  the  original  co- 
efficient matrix  is  written. 

NRED 

Tape  number  on  which  the  reduced  coeffi- 
cient is  written. 

NL 

Tape  number  on  which  the  solution  vector 
is  written  in  reverse  order. 

NR 

Tane  number  of  working  file. 

KBLOCK 

Number  of  the  block  in  which  the  last 
nonzero  diagonal  element  of  the  stiffness 
matrix  appears. 

NN 

Label  number  of  the  last  equation  for 
which  the  diagonal  element  of  the  stiff- 
ness matrix  is  nonzero 
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KEX  Index  that  determines  when  refactori- 

zation of  the  coefficient  matrix  is 
required, 

DET  Determinant  of  the  derivative  of  the 

system  stiffness  matrix. 


12.  SUBROUTINE  SMALL  (Q,CC, SC, NEQB.NBLOCK, LEVEL, ITER, BIG,NL,NDIS,NAR) 

Description.  Subroutine  SMALL  puts  the  solution  vector  in  proper 
order  and  subsequently  calculates  the  norm  of  the  transverse  dis- 
placements. 


Arguments.  Parameters  appearing  in  the  subroutine  argument  list 
are  defined  as  follows: 


Q 

Displacement  vector  of  dimension  NAR 

CC 

Vector  dimension  NEQB 

SC 

Vector,  each  element  of  which  is  the 
maximum  displacement  associated  with 
each  block  of  equations. 

NEQB 

Number  of  equations  in  a block. 

NBLOCK 

Number  of  blocks  of  equations. 

LEVEL 

Label  number  for  successive  load  levels. 

ITER 

Number  of  iterations  of  the  numerical 
procedure  at  each  load  level. 

BIG 

Maximum  displacement  component  for  a 
converged  solution  at  a given  load  level 

NL 

Tape  number  upon  which  the  displacements 
are  written  as  they  emerge  from  subrou- 
tine SESOL  (Displacements  are  in  reverse 
order) . 

NDIS 

Tape  number  upon  which  the  displacements 
are  written  as  they  emerge  from  subrou- 
tine SMALL  (Displacements  are  in  proper 
order) . 

NAR 

NEQB*NBLOCK+LBAND. 

13.  SUBROUTINE  INCDNC  (NEL,NR0WS,NC0LS,NB,N7>NL>NR,NSCHM,ICT0UT) 

Description.  Subroutine  INCDNC  establ ishes  the  correspondence  be- 
tween  local  node  numbers  and  global  node  numbers. 

Arguments . Parameters  appearing  in  the  subroutine  argument  list 
are  defined  as  follows: 

NEL  Total  number  of  area-elements 

NROWS  Number  of  rows  of  finite-difference 

grid  points 

NCOLS  Number  of  columns  of  finite-difference 

grid  points 
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NB 

NT 

NL 

NR 

NSCHM 

ICTOUT 


{ 


Number  of  the  row  in  which  the  side  of 
the  cutout  nearest  the  row-baseline  for 
the  panel  lies. 

Number  of  the  row  in  which  the  side  of 
the  cutout  furtherest  from  the  row- 
baseline  for  the  panel  lies. 

Number  of  the  column  in  which  the  side 
of  the  cutout  nearest  the  column-baseline 
for  the  panel  lies. 

Number  of  the  column  in  which  the  side 
of  the  cutout  furtherest  from  the  column- 
baseline  for  the  panel  lies. 

=1  Finite-difference  nodes  are  numbered 
consecutively  in  the  y-direction. 

7*1  Finite-difference  nodes  are  numbered 
consecutively  in  the  x-direction. 

=1  Panel  has  a cutout. 

^1  Panel  does  not  have  a cutout. 
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APPENDIX  E 


FLOW  CHARTS  FOR  SUBROUTINES  AND 


MAIN  PROGRAM 


SUBROUTINE  BCID 


Start 


IK  = 0 


Calculate  NBC(I).  Nodal  incidences  that  lie 
e?ements°Undary  f°r  ^ d1fferent  boundary 


m = i 


0 


IEL  = ITYPE(M) 


NP  = NBC (IEL) 

L _ 

I = 
1 

±\ 

V 

IF 

IBC(M,I)  = o 


IK  = IK+1 


Calculate  ID(IK).  IK  is  the  number  of  the 
equation  for  which  a displacement  boundary 
condition  is  to  be  applied 


SUBROUTINE  ELPROP 


Read  KN,  the  total 
number  of  layers. 


KL  = KN+1 


Read  H(I),  the  distance  of  each 
layer  from  a reference  surface. 


N = 2 


Read  El ,E2,NU1 ,NU2,G,e  for  each  layer. 

El  - Modulus  of  elasticity  in  the  fiber  direction. 

E2  - Modulus  of  elasticity  perpendicular  to  the  fiber  direction. 
NU1 ( v i 2 ) - Poisson  ratio  associated  with  a stress  in  the  fiber 
direction  and  a strain  perpendicular  to  the  fiber  direction. 
NU2(v2i)  - Poisson  ratio  associated  with  a stress  perpendicular 
to  the  fiber  direction  and  a strain  in  the  fiber  direction. 

6 - Shearing  modulus  of  elasticity 
e - Angle  of  fiber  orientation 


Calculate  0(N,I,J),  the  elements  of  which 
depend  on  El ,E2,NU1 ,NU2,G  and  e. 


N = N+l 


Construct: 
[ELN]  = 


Read  the  displacement  vector  from  tape  NL. 
Displacement  vector  is  stored  in  reverse 
order  on  tape  NL. 


NBIfi 

» 1 

1 = 

1 

! CC( I ) | > | CC(NBIG) 


II  = 1+  (NBL0CK-K)*NEQB 
Reverse  the  order  of  the 
displacement  increments 
and  add  them  to  the  previous 
displacements.  Store  the 
result  in  [Q]. 


1 = 1+1 

I-NEQB 


Determine  the  value  of  the  largest  displacement 
in  the  block  under  considerations  and  store  it 
in  { SC  > 
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SUBROUTINE  FDIFF 


Calculate  the  finite-difference  grid 
spacings  H,K,L,M. 


I EL  = ITYPE(M) 


Calculate  the  finite-difference  coefficients, 

and  the  area  for  a particular  element  type.  Calculate 

the  coordinates  of  the  centroid  of  the  element  area. 


Write  the  coefficients  of  the  matrix  [B] 
and  the  area  associated  with  each  element 
on  tape  NX1 . 


Call  the  subroutine  ATBA  and  calculate 
[CA2]  = [c]t[PA2][c]  and  write  it  on 


Call  the  subroutine 
IMCOEFF 


M = M+l 


RETURN 
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SUBROUTINE  IMCOEF 


START 


PA2T ( I ,J)  = PA2(  I , J) 

PA3T ( I,J,K)  = PA3( I ,J,K) 


Calculate  the  elements  thar  are  associated  with  quadric  displace- 
ment terms  in  the  energy  expression  due  to  initial  qeometric 
Imperfections.  Add  these  elements  to  the  corresponding  elements 
of  the  matrix  [PA2]  and  store  in  [PA2T], 


Call  Subroutine  ATBA  and  calculate: 

[CA2]  = [C]T  [PA2T]  [C]. 

Write  [CA2]  on  working  file  NC2. 


Calculate  the  elements  that  are  associated  with  cubic  displacement 
terms  in  the  energy  expression  due  to  initial  geometric  imperfections. 
Add  these  elements  to  the  corresponding  elements  of  the  matrix 
[PA3]  and  store  in  [PA3T ] . 


Write  the  elements  of  [PA3T]  on  work 
file  IPA3T. 


Return 


SUBROUTINE  MULTOC 


IF 

IB  = LBAI 


No 


o 


Write  the  matrix  [DK]  with  the  new  values  in  the 
last  column  on  the  work  file  NC. 


Write  the  reduced  coefficient  matrix  of  [DK]  with  the 
new  values  in  the  last  column  and  iMAXAl  on  the  work 
file  NC. 


Store  the  elements  of  the  first  block  of 
NSTIF  in  an  auxilary  storage  (A). 


Read  the  elements  of  the  next  block  from 
the  work  file  NSTIF. 


Read  the  elements  of  next  block  from  work  file  KSTIF, 
which  contains  the  matrix  [DK]  with  zeros  in  the  last 
column. 


.KEX  = 1 


Write  the  values  of  the  matrix  [DK]  with  the  proper  values 
in  the  last  column  on  the  work  file  NC. 


^ IF  N 
N'NBLOCK. 


RETURN 


I 


i 


SUBROUTINE  BCS 


Does 

ID  (J)  lie 

within  the  first  ^ 
LBAND  degrees  of  freedom 
^vof  the  first  block2^^ 


Set  the  diagonal  element  corresponding  to  ID(J),  the 
equation  for  which  a boundary  condition  is  to  be 
applied,  equal  to  1.  Also  set  the  row  elements 
and  column  elements  corresponding  to  I D ( J ) equal 
to  zero.  Set  the  corresponding  element  in  the  load 
vector  equal  to  zero.  
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Set  the  diagonal  element  corresponding  to  ID(J) 
equal  to  1.  Also  set  the  row  and  column  elements 
corresponding  to  ID(J)  equal  to  zero.  Set  the 
corresponding  element  in  the  load  vector  equal  to 
zero. 


Store  the  elements  in  the  previous 
block  in  an  array  [A]. 
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Set  the  diagonal  element  corresponding  to  I D( k ) equal 
to  1.  Also  set  the  row  and  column  elements  correspond- 
ing to  ID(k)  equal  to  zero.  These  elements  are  from  the 
block  under  consideration  only. 


K = K+l 


''IF" 
KEX  = 


SUBROUTINE  INCDNC 


YES 

Calculate  elements  of  the 
nodal  incidence  array, 

NODE (M, I ) 

0 

Calculate  the  elements  of 
the  nodal  incidence  array, 

NODE ( M , I ) 

Calculate  the  elements  of 
the  nodal  incidence  array, 
NODE (M, I ) 


Calculate  elements  of  the 
nodal  incidence  array, 
NODE ( M , I ) 


r reti 

JRN 

"0 

END 

-0 

0 


0 


1 


SUBROUTINE  ELMNT 


Start 


= J+l 


Calculate  the  load  vector  RE(J).  Multiply  by  the  appropriate 
coefficients  of  [b],  the  intensity  of  load,  and  the  area  of 
the  element. 


II  = 1 1+3 


IF 

II  < 25 


Initialize 
QK(I,J)  & OQK(I.J) 


QK(I,J)  = (CA2(I,J)+BNl(I,J)/2+BN2(I,J)/3)*Area 
DQK(I.d)  = (CA2(I,J)+BNl(I,J)+BN2(I,J))*Area 


Write  the  elements  of  matrix  [DQK]  on  the  file 
NDQK. 
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APPENDIX  F 


PROGRAM  LISTING  AND  SAMPLE 
PROBLEM  INPUT  DATA 


non  non 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CLAPP 

COLLAPSE  LOAD  ANALYSIS  FOR  PANELS  AND  PLATES 
THIS  PROGRAM  CALCULATES  THE  COLLAPSE  LOAD  POR  PLATES  AND  PANELS. 
WRITTEN  IN  PORTPAN  G1  LEVEL  POR  THE  IBM  370/165  MODEL  COMPUTER 
AT  CLEMSON  UNIVERSITY  AT  CLEMSON,  SOUTH  CAROLINA.  WRITTEN  BY 
DR.  NELSON  R.  BAULD  AND  MR.  K AT  LAS  AN  SATYAMURTHY. 


MAXIMUM  NUMBER  OF  ELPHENTS  * 244 
MAXIMUM  N n M B ER  OF  NODAL  POINTS  = 240 
MAXIMUM  BAND  WIDTH  PERMITTED  = 8 1 

**************************************************************** 


DIMENSION 
DIMENSION 
DIMENS  ION 
DIMENSION 
DIMENSION 
DIHENS  ION 
DIMENSION 


OK  (27,  2 7)  , DQK  (27,27)  ,ELN(6,6)  ,CQ(12)  ,B(6,9)  ,PE<27) 

CA2  (27,27) , NPC(9)  , PA2 ( 12,12) , AN1  (12, 12 ),  PA3  (12, 12, 12) 
BN  1 (27,  27)  ,BN2  (27,27 ),LP( 27) 

P33(9,9),P34(9,  9)  ,P35(9,9)  ,P18(9,9)  ,P3  9(9,9) 

P44  (9,9),  P4  5 (9,9)  , P4H  (9,  9)  , P4  9(9,  9)  ,P5  5 (9,  9) 

P58  (9, 9),  P59  (9,  9)  , PR8  (9,9)  ,P89  (9,9)  ,P9  9 (9 ,9) 

P A ?T  ( 12,12)  ,PA3T(  12,  12,12) 


DIMENSION  ID  (4  00)  ,CC  (100)  ,X  (240)  ,Y  (240)  , NODE  (244,9)  , ITYPB  (24  4) 
DIMENSION  PLOAD(244,  3), PI  NCR  (244,3)  ,PINCO(244,3)  ,TBC(244,3> 
DIMENSION  n AX  A ( 17  0)  , M AX  B ( 1 70)  , AK  (246 , 92  ) , P 1 (67  24  ) .NODES  (24  4) 
DIMENSION  P2  (67  24  ) , D (6724)  ,SC  (10)  , 0(850)  , P6  (100) 

DIMENSION  HEO(IR) 

EOUI  VALENCE  (AK  (1  ) , PI  (1 ) ) , ( AK  (6 7 25)  , P2  ( 1 ) ) , ( AK  (1  34  4 9)  , D ( 1 ) ) 
COMMON  /P11/  0K,D0K,RE,a,CA2 

/PI  2/  BN1 ,BN2 , FIOAD, PINCP 
/PI  3/  PA2,  PA  3 
/PI  4 / ELN, AR  EA , R 
/P 15/  X,Y,NODF,ITYPE,IBC, NODES 
/P 1 6 / PA2T  ,P A3 T 
/P 1 7/  ID, IK, NBC 

/PI  9/  p 3 3 , P3  4 ,PJ5,P38,P39,P44,P4  5,P48,  P49,P55 
/P  20/  P58,P59,Pffi,P89,P99 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


READ  ( 1,  422)  IRUN 

422  FORMAT  (15) 

WRITE  ( 3,  42  3)  IRUN 

423  FORMAT  (3  X , 'RUN  NUMBER  = *,2X,t5) 
NTAPE  = 25 

K EX  = 1 
F H = 1 .0 
I COUNT=0 
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KCUT=0 

C 

NNP  = 1 
ntihe=3 
NIN  E=9 
INI T=0 
IT  ER= 1 
LE  VEI.=  1 
ITMAX=5 
LEM  AX  = 25 
N R ED= 1 5 
N P=  1 6 
NT  HR  EE=  3 
NE0B=82 
NST  I F=  1 0 
F STI F= 1 1 
NX  1=  12 
N I.  = 1 3 
NC=  14 
NDI S = 17 
N D=  1 8 
NC2  =20 
I P A 3T  = 2 1 
NBN 1 =22 
N EN  2=  2 3 
NDOK  =24 
REMIND  NDOK 
REMIND  NBN1 
REMIND  N BN  2 


C 

C 

C 

C 

C 

c 

c 

c 

c 


REMIND  IPA3T 
REMIND  NC2 
REMIND  ND 
REMIND  N D 1*1 
REMIND  N X 1 
REM  IND  NSTIF 
REMIND  KSTIF 
REMIND  NL 
REMIND  NC 
REMIND  NT  An  E 
**********«#< 

THIS  READS  THE  TOTAL  NUMBER  OF  ELEMENTS  AND  THE  TOTAL  NUMBEP 
OF  NODAL  POINTS.  NE L=TOT A L NUMBEF  OF  ELEMENTS. 

N DM  N P=TOTA  L NUMBER  OF  NODAL  POINTS. 

I EX  IS  AN  INDEX  CORRESPONDS  TO  THE  I N T T I A L IMPERFECTION. 

I F X = 1 INITIAL  IMPERFECTION  IS  FRESSNT . 

I EX  = 0 NO  INITIAL  IMPERFECTION. 

MPI  tr  (1,1100) 

1100  FOPvNAT  (///  2SX, 

READ  (1,20)  HFD.NEL,  N DM  NP  , I F X,  I U I F , NF  LA  T 
20  FOPMAT  ( 1FA4/2I  10 ,315) 

WPITf  (1,19)  HFD,  NEL,  NOMNP,  IPX,  IEI  F,NFI.  AT 
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o n n o 


39  FORMAT  { 1 HI  , 2 5X  , 1 0A  4 /// 

1 25X.  30H*  NUMBER  OF  ELEMENTS 110  // 

2 25X,30H*  NUMBER  CF  NODAL  POINTS 110  // 

3 25X , 10  H*  INITIAL  IMPEPPFCTION  INDEX--  15  // 

4 25X,30H*  BIFURCATION  INDEX 15  // 

5 25X,  30  H*  FLAT  PLATE  ANALYSIS  INDEX—  15  //) 


***************************************************************** 

THIS  READS  THE  RADIUS  OF  CURVATURE  AND  THE  ACCURACT  CRITERION 
EPSILON,  WHICH  IS  USED  IN  THE  NEW  PON-RAPHSON  ITERATION  SCHEME. 
***************************************************************** 
READ  (1,21)  R , F PS  I 

21  FORMAT  (PI  0. 0,  F14 .0) 

WRITE  (3,22)  R , FP SI 

22  FORMAT(1H0, 

1 25X  , 30H*R ADIUS  OF  CURVATURE F10.4  ,2X, 'INCHES*  // 

1 25X,36H*  CONVERGENCF  CRITERION  EPSILON F10.6//) 

C ********* ****************************************************** 

C THE  INITIAL  IMPFPFFCTION  IS  CF  THE  FORM  W = WO^SIN  (M*PI*X/A)  * 

C SIN  (N*PI*Y/B)  , WHERE  WO  IS  THE  MAXIMJM  INITIAL  IMPERFECTION  A T 

C THE  CENTER,  CONS1=  (M*PI/A),  CO  N S2  = (N*PI/U).  XO  AND  YO  ARE  THE 

C OFFSETS  FROM  TH  E X AND  Y AXES  RESPECTIVELY. 

C *************************************************************** 


READ  (1,11)  WO, CO  NS  1 ,CONS2,XO,  YO 

11  FORMAT  (5F10.0) 

WRITE  (3,12)  WO,CONS1,CONS2,XO,YO 

12  FORMAT  (1  HO  , 

1 25X, 30H*N AX. IMPERFECTION  AMPLITUDE F16 . 6 ,2X ,'I NCHES ' // 

2 25X  ,3  OH*  WAVE  NUMBER  IN  X-DIRECTION-  F16.6  // 

3 25X , 30  H*  WAVE  NUMBER  IN  Y- D IP  ECTION-  F16.6  // 

4 25X  , 30H*  OFFSET  FROM  "’HE  X-AXIS F 1 6. 6,  2X,  ' IN CHES • // 

5 25X  , 30  H*  OFFSET  FROM  THE  Y-AXIS F 16 . 6 , 2 X, 'I  NCHES '//) 

WRITE  (3,13  00) 


Q ***************************************************************** 

C THIS  READS  THE  ELEMENT  NUMBER, THE  TYPE  OF  THE  ELEMENT  AND 

C THE  NODAL  INCIDENCES  ASSOCIATED  WITH  EACH  ELEMENT.  EVFPY 

C ELEMENT  HAS  NINE  NODAL  INCIDENCES  ASSOCIATED  WITH  IT. 

q ****************************************************************** 

C 

WRITE  (3,1200) 

1200  FORMAT  ( 1 H 1 , 2X , ' FL. NO . • , 2X, • TYPE ' , 2X, • NODE-1 ' ,2X , 'NODE-2 • ,2X, ' NODE 
1-3 • ,2X, 'NODE-4 ' ,2  X,  * NODE-5 ' ,2X, • NODE-6 ' , 2X, • NODE-7* ,2X, 'NODE-P • , 
22X , ' NODE-9'  ) 

C* *******  ************************************************  ******* 

C HERE  THE  QUANTITIES  NECESSARY  FOP  THE  MESH  GENERATION  ARE  READ. 

C NSCHM  IS  EQUAL  TO  1 IF  THE  FINITE-DIFFERENCE  NODES  ARE  NUMBER- 

C ED  CONSECUTIVELY  IN  THE  Y-  DIRECTION. 

C IT  IS  NOT  EQUAL  TO  1 IF  THE  FINITE-DIFFERENCE  NODES  APE  NUMBER- 

C ED  CONSECUTIVELY  IN  THE  X-  DIRECTION. 

C ICTOUT  IS  EQUAL  TO  1 FOR  A PANEL  WITH  A CUT-OUT. 

C ICTOUT  IS  NOT  EQUAL  TO  1 FOR  A PANEL  WITHOUT  A CUT-OUT. 

C N ROWS  - NUMBER  OF  ROWS  OF  FINITE-DIFFERENCE  GRID  POINTS  - A ROW 

C BEING  A LINE  OF  CONSECUTIVELY  NUMBERED  NODES. 

C NCOLS  - NUMBER  OF  COLUMNS  OP  FINITE-DIFFERENCE  GRID  POINTS. 

C IROW1,  IROW2  - NUMBER  OF  THE  ROWS  IN  WHICH  THE  SIDES  OF  THE 
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C CUT-OUT  ° AP  ML  El.  TO  THK  TOWS  OF  FI  NI^E-  DIFFERENCE  GRID 

c points  r. r f. 

C ICOL1.  ICOI.2  - NUMREFS  OF  THF  COLUMNS  IN  WHICH  T HF  SIDES  OP 

C OF  THF  C!JT  -OUT  PARALLEL  TO  THF  COLUMNS  OF  THE  FI NI T E-DI FFE PE - 

C NCF  GRID  POINTS  LIF. 

C NOTE:  NODE  NMNBFPING  SHOULD  ALWAYS  PROCEED  FROM  THE  UPPER 

C LEFT-HAND  CORNFP  OF  thF  FINITE-DIFFER FNCE  GRID. 

READ  (1  ,641)  NSCH  M,  I CTOUT  , NCOLS , NROWS,  I ROW  1 , I ROW  2,  TCOL  1,  ICO  I? 

641  FORMAT  (HIS) 

READ  ( 1 , bU  2)  (ITYPF(I)  ,1=1, NEL) 

642  FORM  A'’’  (1  0 (IS)) 

READ  (1,641)  (NODES  (I)  ,1  = 1,  NEL) 

64  ) FORMA"-  (10  (IS)  ) 

CALL  INCDNC  (N  EL,  NROWS,  NCOL  S,  I RO  W 1 , 1 R 0 W 2 ,ICOL  1 , 1 CO  L2  , NSCHH,  I CTOUT) 
WRITE  ( 1,25)  ( (M , IT YPF  (M)  , (NCDE  (M,I)  , 1=  1,9)  ) , M= 1 , N EL ) 

25  FORMAT  ( 117,  HTR) 

C HERE  THF  SUBROUTINE  I BAND  IS  CALLED  TO  DETERMINE  THE  BAND 

C WIDTH  OF  H F SYSTEM. 

CALL  IBAND(NEL,LBANO) 

WPTTF  (1,1100) 

WRITE  (1,26)  LRAND 

26  FORMAT  (1H0,25 X,  'BAND  WIDTH  OF  THE  SYSTEM  =',I5) 

W RIT  F (1,1  100) 

WRITE  (1,1201) 

1201  FORMAT  (1  HI  ,SX, • NOD AI  POI NT ' , 4 X , • X -COOP  DIN  AT E • , 6 X , ' T- COORD  IN  A TF* ) 

C HEPE  THF  X AND  Y COORDINATES  OF  EACH  NODAL  POINT  IS  READ. 

PEAD  (1,27)  ( (N,X  (N)  ,Y  (N)  ) , N*  1 , NUNNP) 

27  FORM  AT  (IS,  2F10. 0) 

WRITE  (3,21)  ( (N,  X (N)  ,Y  (N)  > , R=  1 , NUMNP) 

21  FORMAT  (112,  3X,  F16.6,  2X,FtG.6) 

WRITE  (1,120?) 

1202  FORMAT  ( 1 H 1 . 6X  ,' ELEMENT  NO 5X  Z- LOA D », 10 X ,• X- LOA D •,  1 OX , 

1 • Y-LOAD  •) 

RFAD  (1,15)  ( (M,  (PLOAD  (M  , I)  . 1=1  ,3)  ) ,M=  1 ,NEL) 

15  FORMAT  (TS,  3F  10.0) 

WRITE  (1,16)  ( (N,  (PLOAD  (M,I)  ,1=  1 ,3)  ) , M=  1,  NEL) 

16  FOPMAT  ( II 5,  2X  , .IF  16 . 6) 

READ  (1,17)  ZINCP,XINCR,YINCF 

17  FORMAT  (3F10.0) 

WRITE  (1,11)  7INCP, XTNCR,YINCR 
11  FOPMAT  ( 1 H 1 , 

1 2 X , 'LOAD  INCREMENT  IN  7 -DI  RECT  ION--'  , F 16.  6,  2X,  • POUNDS'  / 

2 2X  , 'LOAD  INCREMENT  IN  X-  DIR  ECTION—  • , F 16.  6 , 2 X,  • POU  NDS  • / 

1 2X , ' LOAD  INCREMENT  IN  Y- DI RECTION , F 1 6. 6 ,2 X , • POU NDS» ) 

WRITE  (3,1201) 

1201  FORMAT  ( 1H0, 5X,  • ELEMFNT  NO . * , 5 X , • Z- BOON  DA  R Y * , 5 X,  » X- BOO  ND  ARY  • ,5  X, 

1 • Y-BOUNDARYM 

READ  (1,11)  ( (M,  (I BC  (N , I ) , 1=  1 , 3) ) , M=  1,  NEL) 

WRITE  (3,14)  ( (N,  (IBC(H,I)  ,1  = 1,1))  ,M=1,NEL) 

33  FORMAT  (15,315) 

14  FOPMAT  (112,116,115,115) 

HERF  THF  SI1BPOUTINE  FLPROP  IS  CALLFD  TP  DETER  HI  N F THF.  MATERIAL 
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STIFFNESS  MATRIX  OF  THE  SYSTEM. 


CALL  EL  PROP 
WRITE  (3,12  04) 

1204  FORMAT  { 1 HO , 10X , ' THE  COMPOSITE  MATERIAL  STIFFNESS  MATRIX'  /) 
WRITE  (3,511)  ( (FIN  (I  ,J)  , J=  1 ,6)  , 1=1,6) 

511  FORMAT  (5X  , b FI  6 . 6 ) 

NEO=  3*NUM  N P 

ANBLK  = FLO AT  (NEQ)  /FLOAT  (NEQB) 

IF  (ANBLK  .GT.  IN  T( AN  BLK ) ) GO  TO  9922 
NBLOCK  = I NT  (ANBLK) 

GO  TO  9923 

9922  N B L OC K = I NT  (ANBLK)  *1 

9923  WRITE  ( 3,  9924)  N BLOCK 

9924  FORMAT  (1  H 0 , 1 0 X , ' TOT  A L NUMBER  OF  BLOCKS  =',I5) 


DO 

7059  N=  1,  NEL 

DO 

7 059  1 = 1 ,3 

PINCRfM,  I)  =0.  0 

IF 

(PLOAD  (M  , I ) .EQ.  0.0 

) 

PINCO  (N,  I)  =3.  0 

IF 

(PLOADfM,  1)  .NE.  0.  C 

) 

PINCO  (H, 1) =ZI NCF 

IF 

( PLOAD  ( M , 2)  .NE.  0.0 

) 

PI  NCO  ( M,  2)  =X  INCR 

IF 

(PLOADfM, 3)  .NE.  0.0 

) 

PINCO  (M,  3)  =YI  NCR 

7059  CONTINUE 

CALL  COEFF  (NFL  AT ) 

LB1  = LBAN  D»1 
N A V=NEQB*LB1 
MI  = L BAN  D + N EQ  p-  1 
1532  DO  530  T = 1 ,S50 
530  0(I)=0.0 

CALL  FD  IFF  ( NF  L , NU  MN  P , NX  1 , NC2  , W 0 , CO  NS  1 , CONS  2,  X 0,  Y 0,  IEX,  IPA3T,  NFI.A  t) 

IF  (IRON  . EQ-  1)  GO  TO  7054 
421  REWIND  N^APE 

READ  (NTAPE)  ( ( PLOA  D ( M , I)  , I = 1 , 3)  , M = 1 , NE  L) 

READ  (NTAPE)  ( (PINCO  (M,I)  ,1=1,3)  , M=  1,  N EL) 

READ  (NTAPE)  ( ( P I NCR  ( M , I)  , I = 1 , 3)  , M = 1 , NE  L) 

READ  (NTAPE)  (Q  (I ) , 1 = 1 , NEC) 

READ  (NTAPF)  L EV  EL,  ICOUNT,  KC  UT 
WRITE  (3,470) 

470  FORMAT  (2X,'THE  LOADS  ARE') 

WRITE  (3,1202) 

WRITE  (3,471)  ( (M,  (PLOAD  (M,I  ) ,1=  1,3)  ) , M=  1,NEL) 

471  FORMAT  (T  15,  2X  , 3F  16  . ft) 

7054  REWIND  N X 1 

REWIND  NST  IF 
REWIND  KSTIF 
REWIND  N D IS 
REWIND  NC2 
PEW  IND  I D A )T 
REWIND  NBN 1 
REWIND  NBN? 

REWIND  NOOK 
I COO  NT = ICOUNT ♦ 1 
N NB  =2*N  E0D 
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NUH3P=NUKNP*3 
ND2=2*NEQB 
ND3=3*NEQB 
L EL  0 CK  = 0 

NTI HES=NNR*NTINE 
H = 1 

DO  1002  1 = 1 , ND3 
DO  1002  J=1,NEQB 
1 002  AK  (I  ,J)  =0.0 
HHL  = 0 

710  NNB=NNB*NEQa 

LBLOCK  = L BLOCK + 1 
KB=LBLOCK 

HL  = H 

IF  (NHL  .GT.  NEL)  GO  TO  7 07 
DO  200  H = ML, NEL 

IF  ( 3*NODE  (!1 ,9 ) .GT.  NNB)  GC  TO  707 
PFAD  (NX  1)  B,  Ap  FA 
nm.=n+ 1 

DO  7 3 1=  3,  27,  3 
I J=I/3 

LP  (1-2)  =3*NODE  (P),  IJ)  -2 
LP(I-I)  =3*NODE(N,  L7)  - 1 
73  LP  (I)  = 3 * NODE  (H,IJ) 

K 1 = L P ( 1) 

I 1 =LP  (2) 

J 1 = LP  (3) 

K2  =LP  (4) 

I2=LP(5) 

J2  = LP  (6) 

K 3=  LP  (7) 

I 3=LP  (8) 

J 3=  L P ( 9) 

K4=tP  (1  0) 

14  = LP  (1  1) 

.J4=LP  (12) 

K 5 = L P ( 1 3) 

1 5 = LP  (14) 

J5=L  P ( 1 5) 

K6=LP  (16) 

16  = LP(  17) 

J6  = LP  (1  8) 

K 7=  L P ( IP) 

I7=T.P  (20) 

»T7  = LP(21) 

K8=I.P  (2  2) 

I8=LT>  (23) 

.T8=LP  (24) 

K9=L  P ( 25) 

T 9 = L P (26) 

J9=LP  (27) 

READ  (NC2 ) CA2 
DO  900  1=1,  3 

9 00  CQ  (I)  = B (I  , 1 )*0  (II  ) ♦ B (1,2)  *Q  (12)  ♦ E (I,  J)  *0(13)  ♦ P (1 , 4 ) *Q  (T4 ) ♦ 
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1 P (1,5)  *0  (TS)  »B  (1,6)  *Q  (If.)  Ml  (1,7)  *0  (17)  ♦ B(I,  R)  *Q(  18)  ♦B(I#  9)  *0  ( I <*» 
DO  <»0 1 1*1,3 

901  CO  (1*3)  »B  (I  .1)  *0  (J1  ) »B  (1,21  *C(J2)  ♦B(I,  3)  *0(J3)  ♦B  (I,  4)*Q  (J«)  ♦ 

1 B (I,  5)  *0  (.15)  *B  (I,  6)*0  (06)  *0  (I,  7)  *0  (07)  ♦ B (1 , 8)  *0(081  ♦ B(I,  9)  *0(0  9) 
DO  902  1*1,6 

9 02  CO  (1*6)  = B (1,1  )*0  (K1  ) ♦ B (1 ,2)*0  (K2)  ♦BJI,  3)  *Q(K  3)  *B  (I,  4)  *Q(K4)  ♦ 

1 B (I,  S)  *0(Kb)  ♦ B ( I , b)  *0  (K6)  *B  ( 1 , 7)  *0  (K7 ) ♦ B (I  , 8)  *0  ( K« ) ♦ B (I  ,9 ) *0  (K9) 
TF  (IE  X .FO.  1)  00  TO  6 
DO  904  1=  1,  12 
DO  9 04  .1=1  , 12 

CStld=PA  1 ( 1,0,  1)  *CQ(  1)  ♦PA3(I,  0,  2)  *C0  (2)  ♦ PA3  (I  , J,3)  »CQ (3) 

ESUN=PA )(T ,0,4)  *C0(4)  *FAJ  (I,J,5)  *CQ(S)  ♦ PA3  ( T,  J,  6 ) *CQ  (6  ) 

FS1ld  = PA3  (I,  J,7)  *C0  (7)  *PA3  (I  ,.1,8)  *C0  (3)  ♦ PA  3(1, J, 9)  *C0  (9) 
GSlld=PA3(T,  J,  10)  *C0  ( 10)  *PA  3 (I,J,  11)  *C0  ( 1 D *PA3  (r  ,J,  12)  *00  (1  2 1 
9 04  AN  1 (I  ,0)  *3 . 0*  (CSllh*  ESUd*FSUd*OiSHd) 

CAI.L  AT  PA  ( AN  1 , B,  BN  1 ) 

(10  TO  7 

b READ  ( IP  A IT)  P A IT 
DO  90b  1=1,12 
DO  9 0(i  .1=1,12 

CSUN-PA1T  (I  ,.1, 1 ) *C0  (1  ) *PA3T  (I,,l,  2)  *CQ(2)  ♦PA3T  (I,J,  J)*CQ  (3) 

FSHd  = PA3T  (1.0,  4)*C0  (4)  *PA  3T  (I,J,5)  *C0  (r> ) ♦ PA  3T  (I  , 0,  6)  ♦CO  (6) 

F Slid  =PA  IT  (I  ,.1,7)  ♦CO  (7)  ♦ P A IT  ( I , .1  , fl)  *CQ  (B  ) ♦PA  IT  (I, 0,9 ) *C0  (9) 
GSlld=PA3T  (1 ,0, 10)  *CQ  (10)  *PA3T  (I,  0,  1 1)  ♦CQf  1 1)  *PA3T(  I,  J,  12)  *C 0 (12) 
9 0 ‘>  AN  1 ( I,  .1)  = 3.  0*(CSIIM»  ES11M  ♦FSIIM  ♦GSOPI) 

CAM.  ATB  A ( AN  1 ,B,  PN  1 ) 

7 DO  920  1=1,12 
DO  920  .1  = 1 , 12 
9 20  AN  1 ( I,. 1)  =0. 0 
DO  9 OS  1=1,9 
DO  9 0S  .1=1,9 

CSUd*CO  (3)  **2*P33  (1  , »I ) ♦CO  ( 3 ) *CQ  (4)  *2.  0 ♦ P 34  ( I , .1) 

EStl  d = CO  ( 1 ) * 2 . 0*  CO  (S)*P35(I,J)  *C0  (3)  *2.0*C0(H)  ♦P3«(T  , J) 

F S U d *C  0 (M  *2.  *C0(  9)  ♦P39(I,.1)  fCO  ('»)  **2  *P«4  ( I ,.l ) 

G Slid  =2 . 0*C0  (4  ) ♦ (CU(S)  ♦P45  (I,  J)  +F4  8 ( I , .1 ) ♦CQ(B)  ) 

HSU  (1=2.  0*CO  ( 4)  ♦CO  (9)  ♦P49  ( I,  J)  ♦CO  (5)  **  2 ♦ PS5  (1,0) 

P S DM  =2 . 0 ♦CO  (S)  * (PS9  (I  ,.1)  *CO(B)  *P59  (I,  .1)  ♦CO  (9)  ) 

0SHM  = PB(3  (I,.1)*C0  (B)  **2*2.0*CQ  (H)  ♦CO  (9)  *P89(I,0) 
0Snd=0S0d*P9Q(I,J) *C0 (9) ♦♦? 

9 0S  AN  1 (I  ,.!)  =<> . 0*  ((SUM*  F.S  II  (*♦  FSH  d ♦ GS  0 d ♦ HSH  d ♦ PSOd+OStld) 

DO  9 21  l=1,« 

.1 L *1  ♦ 1 

DO  9 ?1  .1=01.,  9 
921  A N 1 (.1,1)  = A N 1 (I  ,0) 

CALL  AT  HA  (AN  1,13,  BN  2) 

IF  (LEVFL  .SO.  2 .AND.  tT  EH  . EO-  U 90  *0711 
GO  TO  70  1 

7 11  IF  (IIITK  .NR.  1 ) GO  *0  701 
WHIT  F (NBN  1)  BN  1 
WPTTE  ( N H N 2 ) BN2 
C 
C 
C 

701  CAM.  EI.dNT  (NRL,d,NDOK) 
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C THIS  CO  DING  ASS  EM  BI.  ES  COEFFICIENTS  OF  THE  BOUNDARY  ELEMENTS 

C IN  THE  MASTER  STIFFNFSS  MATRIX  AND  STORES  THEM  IN  AN  ARRAY  OF 

C DIMENSIONS  NEQ  X IB  AND. 

60  DO  40  r=  I,  27,  I 
1.7  =1/3 

LP  ( 1-2)  = 3*NODE  ( M , IJ)  - 2 
LP  (I  - 1 ) =1  ♦NODE  ( M,  1.7)  -1 
40  LP  (I)  = 3 * N 0 D E (M,  1.7) 

DO  SO  LL*1, 27 
I =LP  (LI.) 

1 1=  I - (K  B-  1)  *N  BO  B 
AK(II,LB1) =AK(IT,IB1) ♦RB(LT) 

DO  50  M M = 1 , 2 7 

.7  = LP  (MM)  -!*■  1 

IF  (.7  .LE.  0)00  TO  50 

AK  (I  I,. I)  = AK  ( II,  J)  *0K  ( LL  , M M) 

50  CONTINUE 
200  CONTINUE 


707  WRITF  (NSTTF)  ( (A  K (I  , .7)  , 1=1  , NRQE)  , J = 1 , I.  P 1) 
DO  705  NN  = 1,ND2 
DO  705  MM=  1 , LB1 
KK  = N N*N FOB 

705  AK  (N  N , M M)  = A K ( K K , M M) 

N D2P  1=  N D 2 ♦ 1 

DO  706  NN=ND2P1  ,ND3 
DO  706  MM  = 1 , L B 1 

706  AK  ( N N,  M M)  =0.0 

I F ( N BLOCK  - L BLOCK)  1600,  1600,710 
1600  REWIND  NSTIF 
REWIND  NDOK 
M NR  = 1 

NN  B=  2*N  EOB 
LBLOCK=0 

NTIMF.S=MNR*NTIM  E 
M = 1 

DO  160  1 1=  1,  ND  3 
DO  1601  J=1,NE0B 
160  1 AK  (I,J)  =0.0 
HML  = 0 

1602  NNB=NNB*NEOB 

I.BI.0CK  = LB1.0CK*1 
K B=L  BLOCK 


ML  = H 

IP  ( NML  . GT.  NFL)  GO  TO  1603 
DO  1604  M=ML,NEL 

IF  ( 3*NO  DE ( M , 6)  ,GT.  NNB)  GO  TO  1603 
MMl.  = M»  1 

READ  (NDOK)  DOK 
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1606  LP  ( I)  = 1*NOOE(M,  IJ) 

DO  1607  LL=1,27 

I~  L P (LL) 

II=T-  (KB- 1 ) *NE0R 
DO  1607  Ml*  1,27 
J =LP  (MM)  - T ♦ 1 

IF  (.1  . 1.E.  0)  00  TO  1607 

AK  (II  , J)  = AK  (I  I , J)  ♦ DQF  (LL,  MM) 

1607  CONTINUE 
16  04  CONTINUE 

1601  W p IT  E (KST  I F)  ( (A K ( I , J)  , 1 = 1 , NF0»>  , J = 1 , LR1) 

DO  1608  N N= 1 , NO  2 
DO  1608  MM=1,Lni 
KK=  NN*N EOB 

1608  AK  (NN,MM)  =AK  (KK.KM) 

N D2P  1=N  [)2*  1 

DO  1609  N N = N02  PI  , Nl)  1 
00  1609  NM=1,LR1 

1609  AK  (NN,MM)  =0.0 

IF  ( N BLOCK  - L BLOCK ) 1b  1 0,  1 6 1 0,  1 602 
1 6 1 C REWIND  KSTrF 
NEQ=  1*  NUM  N P 

CALL  BCTD  (NEL, NFQ.NBT OCK, NEpE,  K BLOCK,  NN) 

WRIT  F ( 3,  1 1 12)  KBLOCK,  NN 
1112  FORMA"  ( 1 MO  ,2  X , ' K ELOC  K= ' , 15 , ' NN=  ' , 15) 

1111  IF  ( IN  IT  .(IE.  1)  GO  TO  7030 

DO  7 03  1 K=  1 , NBLOCK 
IL=  (K-1  ) * N EpR ♦ 1 
IR=K*NE0B 

7031  WRITE  (NDTS)  (0  (I  ) , I = 1 1 , I R) 

TNIT  = 1 

7010  NAP=NEPR*NI1T.0CK*LEAND 

IF  ( K EX  .NE.  1)  CD  TO  7090 
REWIND  NC 
REWIND  NSTIF 
PFWIND  KSTTF 

CALL  MMLTOC(P 1, P2,P  6, D,0, MAXA,NA  V, NEOB,  N AP , LB A NO , NB LOCK , HI , NSTIF, 
1 K STI F , NC  , 1 ) 

REWIND  NC 
REWIND  K STI F 

CALL  BCS (P1,P2,N AXA , N A V , N EOB , LB A NO , NT  ,1  , NBLOC K, NC, K STI F , N AX B) 

PEWIND  KSTIF 

PEWIND  NRED 

PEWIND  NR 

PEWIND  NL 

NEQ=1*NUNNP 

CALL  S ESOL  (P 1, P2, M A X A , N FO, LB AND , 1 , NBLOC K , NEOB , NA V, MI ,KSTTF, NPED, 

1 N L , NR,KBLOCK,NN,1 ,MAXB,DET) 

C,0  TO  709  1 
7090  PEWIND  NSTIF 
PEW  IN  D NR  F.D 
PEWIND  NC 

CALL  MIILTOCfP  1,P2,'>6,  D,0 , MA  X A , NA  V,  NEOB  , N AP  , LB  A NO  , NB  LOCK  , HI  , 
INSTIF.NPED , NC,2 ) 


REWIND  NC 
REWIND  NRED 

CALL  BCS  (R1,R2,HAXA,NAV,N  BOB  ,LBAND,HI,2  , NBLOCK.NC,  NRED,  MAX  B) 

REWIND  KSTIF 

REWIND  NRED 

REWIND  NL 

REWIND  NR 

CALL  SR  SOL  (PI  , P2  , HA  X A , NEQ, LB  AND, 1, NBLOCK , N EQ B, N A V, H I, K STIF,  N RED, 
1 NL,  NR,  K BLOCK,  NN,  2,H  AXB,  DET) 

7091  REWIND  NL 

REWIND  NDTS 

CALL  SHALL (Q,CC,SC, NFQE,NBLOCK, LEVEL,  IT  ER,  BIG, NL , N D IS, N AR, N HMN P) 
W NO  RN  = 0 . 

N UN  3 P = NUN  N P*3 
DO  BOO  1=  1,  NIIH  3P,  3 

800  HNORH=WNORM*Q  (I)  * *2 
WNORN=SORT (WNORN ) 

WR  I TE  (3,801)  W NOR  H 

801  FORHAT(1HO,2X,' THE  NORHALIZED  TRANSVERSE  DISPLACEMENT  IS  =', 

1 F 14 . R) 

***************************************  ********* **************** 

IF  (LEVEL  . FO.  2 .AND.  ITER  .EO.  1)  GO  TO  1122 
GO  TO  1123 

1122  IF  (IBIF  .NF.  1)  GO  TO  1123 
DO  8 10  H = 1,  NEL 
DO  810  1=1,3 

810  PINCF(N,  I)  ~0.5*PLOAD(N,I) 

827  REWIND  NC2 

REV  IND  NX  1 
REWIND  NSTIF 
REWIND  KSTIF 
REWIND  NBN 1 
REWIND  NBN  2 
NNR=2*NF0B 
NUN3P=NHNNP*  3 
ND2=2*NRQB 
ND3=  3*NFOB 
!• BLOCK  = 0 
N=  1 

DO  811  T = 1 , ND3 
DO  8 11  .1=1,  N FOB 

811  AK  (I  , .1)  =0.0 
M N L = 0 

820  NNB  = NNB+  NFOB 

L BLOCK  = L BLO  CK  ♦ 1 

KB=LBLOCK 

HI,  = H 

IF  (NMf  .GT.  NF  T ) GO  TC  812 
DO  813  H=HL, NFL 

IF  (3*  NODE  (M  ,9 1 .GT.  NNB)  GO  TO  812 
READ  (NX  1)  E,A»EA 
HHL=N» 1 

READ  (N  BN  1)  RN  1 
READ  (NRN21  BN? 
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READ  (NC2)  CA2 
DO  fi  14  :«  1,  27 
DO  814  .1=1,27 

8 14  OK  (I,J)  = (CA2(I,  J)  »FH*BN1  (I,  J)  ♦FH*FH*BN2  (I,. I)  ) *AWEA 
821  DO  815  1=3,27,3 
IJ  = 1/3 

I P (1-2)  = ) *NODE  (H,  1.1)  -2 
LP  (1-1)  = )*NODE  (H,  I.1)-1 
815  LP  (I)  = l*NOI)E(H, 1.1) 

DO  818  LL=  1 ,27 
T = LP  (LL) 

1 1 *1 - (KB- 1 ) *NEOB 

DO  8 18  HI  = 1, 27 

J =LP  (MM ) -I*  1 

IF  (.1  .IK.  0)  00  TO  8 18 

AK(II,.1)=AK  (I  I ,.1)  ♦ OK  (LI , M M) 

8 18  CONTINMF 
81  3 CONTINUE 

812  WPITF  (NSTIF)  ( ( A K ( 1 , .1)  ,1  = 1,  NFOB)  , .)  = 1 , L B 1 ) 

DO  817  N N = 1 , ND2 
DO  8 17  MM=  1,LB1 
KK  = NN»NF()n 

817  AK  (NN,NH)  =AX  (KK,HH) 

ND2P  1=ND2i  1 
DO  8 18  NN  = N D2p 1,N  D1 
DO  8 18  M M = 1 , I.B  1 
8 18  AK  ( N N,  M M ) =0.0 

IF  (NBLOCK  - LPJOCK)  814,814,820 
8 14  PEW  TND  NSTIF 
NEQ  = NON  N P*  3 

CALL  HCI 0(N EL, NFO,N BLOCK, NFOB, KBLOCK, NN) 

WPITF  (1,822)  KB!  OCK,  NN 
82?  FOPHAT  (?X, 'KBLOCK*' , 15, ' NN  = • , 1 5) 

CALL  PCS (PI ,P2 , MAXA , NAV, NEOP , L P AN D, H 1 , 1 , N BLOCK, N ST  I F, K STI F, H AXB) 

PF.WIND  KST  I F 

PEWTND  NPF.D 

REWIND  NL 

PEWIND  NR 

CALL  S FSOL  (P1,P?,HAXA,NE0,LBAND, 1, NBLOCK, NSQB, NAV, HI  , KSTI F, 
1NBF.D,NL,NR,KBL0CK,VN,1  ,HAXP,  DF.T) 

FH= FM  *0 . 8 

1 F (DRT  . I F . 0.0)  f!  0 TO  82  1 
DO  8 ?4  1=  1,  NFL 
DO  824  1=1,3 

8 24  PLOAD(H,  1)  * PLO  A D ( H , I)  ♦PTNCP  (H, I) 

WPITF  (1,825) 

8 25  FORMAT  ( 1 M 1 , 8X  , ' ELF  H F NT  NO.  • ,5X,  • 7.-L0A  D ' ,10X,  • X-LOAD'  ,10X, 

1 • Y-  LOAD  • / /) 

WPITR  (),8?8)  ( (RLOAD  (M  , I)  , I = 1 , 3)  , H=  1,  NEL) 

828  FOPHAT  ( 1SX  , 2X  , IF  18. 8) 

00  TO  827 
8 23  WRIT  f ( 1,  8? 8) 


828  FORMA”'  ( 1 !!  0 ,4  X 
WPITF  M,8?Q) 


U7 


820  FO  ON  AT  ( 1 HO,  10  X , ' TH  E SYSTEM  HAS  BUCKLED  DURING  TFF  PREVIOUS  LOAD 
II  EVEt.'l 
WRITE  (3,810) 

830  FORMAT  (4t,'^HF  TOTAT  BUCK!  I NG  I.OAD  IS  OBTAINED  AS  FOLLOWS:'  /) 
WRITF  (1,811) 

811  FORMAT  ( 4 X , 'THE  APPLIED  PBFSS!I«>E  DURING  THE  LAST  LOAD  LEVEL  IS  ') 
WRITF  (3,812) 

8 12  FORMAT  (4X,  'MULTIPLIED  BY  THE  CORRESPONDING  ELEMENT  AREA'  /) 

WRITE  (3,811) 

833  FORMAT  (4X,'THE  TOT  A 1 PUCK1ING  I.  C A D IS  THF  SUM  DF  ALL  THE 
1INDIVIDHAL  ELEMFNT  LOADS'/) 

WRITR  (1,828) 

GO  TO  *>20 

1121  IF  (ABS  (PIG)  .T.F.  EPSI)  GO  ^0  7052 
I F ( IT  ER  , GE.  ITMAX)  GO  TO  7053 
K E X =2 

IF  (ITER  . EQ.  NTIMES)  KEX=1 
I TE  R =1  T R + 1 

IF  (K  EX  .NE.  1)  GO  TO  7054 
MNR=MNP* 1 
GO  TO  7054 
7052  LE  VF  L=LF.  VE  !.♦  1 

IF  (IB IF  . KQ.  1)  GO  TO  411 
9995  IF  (LEVEL  ,GT.  IFMAX)  GO  TO  7053 
IF  ( KCUT  . GF.  1)  GO  TO  7070 
IF  (ICO 0M'r-  1 ) 7060,  7060, 706  1 

7060  7 N = 1.0 

GO  TO  7062 

7061  ZN=0. 5 

IF  (LEVEL  .FO.  2 .AND.  ITER  .GE.  2)  GO  TO  7062 
TF  ( IT  FR  .GE.  3)  GO  TO  7061 

7062  DO  7058  8 = 1 , NET. 

DO  7058  1=1,3 

PI  NCR  (M  ,1)  = PI  NCR  (M,  I)  ♦ZN^PTNCO  (M,  I) 

7058  PLOAD  (N,  I)  =TLO  AD  (8,  I)  *PTNCR  (8,1) 

GO  TO  7065 

7063  ZN=  1. 

IF  (ITER  .GE.  4)  GO  TO  7070 
7071  DO  7064  M = 1 , N EL 
DO  7064  1 = 1 ,3 
PINC  R (M,  I)  =7  N *P  IN  CO  (M,  I) 

7064  PLOAD  (M,I)=PLOAD  (M,I) ♦ FI  NCR  (M,I) 

7065  CONTINHF 
GO  TO  7075 

7070  KCUT=KCHT ♦ 1 
ZN  = 0 . 5 

TF  (KCHT  . GT.  1 .AND.  ITER  .LE.  3)  GO  TO  7071 
7 N = 7 N /2 .0 
GO  TO  7071 
7075  WRITE  (3,7042) 

7042  FORM  AT  ( 2X  , 'THE  LOADS  ARE') 

WRITE  ( 3,1202) 

WRIT!  (3,32)  ( (M,  (PLOAD  (H,I)  ,1=1,3) ),  N=  1,NEl) 

32  FORMAT  (I  15,  2X,  3F  16. 6) 
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9 1 1 
70S  1 
705  S 
520 


C 

C 

C 

C 

c 

c 


7 1 

70 

75 

75 


C 

C 

C 

c 

c 

c 

c 


I ?FR=1 
(1Nr  = 1 
KEX=  1 

REWIND  NTAPF 
WFITF  (N^APF) 
WRIT  (N”APE) 
WRITE  (N^A^F) 
WRITE  ( NT  A°  F) 
WRITE  (NTAPF) 
00  TO  7054 
WPTTF  (3 ,70551 
FORM  AT  < 1H0, 2\. 
CON  TIN  OF 


( (PLO AD (N,  I)  , 1*1,  3)  , H = 1 , N EL) 
( (PIN  CO  (1,1)  , T = 1 , 3),  1=1,  NFL) 
( (PIN  CP  (M,I)  , I = 1,3),N=1,  NEL) 
(0(1)  , T = 1,  NEO) 
r.FVEl.,  ICCUNT,  K CUT 


•NHHRF«  OF  ITERATIONS  EXCEEDED 


ITMAX  •) 


STOP 

END 

SOD  ROUTINE  ET.MNT  (NET.,  II,  NDQK) 

THIS  SUBROUTINE  ELN  NT  CALCULATES  THE  STIFFNESS  MATRIX  OF 
AND  ITS  DERIVATIVE  FCF  EVERY  ELEMENT.  THEY  APE  OF  (27,  27) 

AND  DOF  (27,  27)  RESPECTIVELY.  TUTS  ALSO  CALCULATES  THE  LOAD 
VECTOR  PE  ( 2 7)  FOP  FV  FRY  ELEMENT  BY  MOLT  IPI.YI  NG  THE  LOAD 
INTENSIFY  RY  THE  AREA  CF  THAT  PARTICULAR  ELEMENT. 

DIMENSION  OR  (27  ,2  7)  ,DOK  (27,2  7)  , RE  (27)  , R (6,  4)  , CA2  (27,  27) 

DIMENSION  3N  1 (?7,  27)  , BN 2 (27,  27)  ,PLOAD  (244,3)  , ELN  (6, 5)  , PI  NCR  ( 24  4, 
COMMON  /P11/  OK, DCF,  PE,  P,  CA2 
COMMON  /Pi  2/  RN1  , BN2 , PLOAD,  PINCR 
COMMON  /P 14/  ELN , AR  EA , R 
.1=0 

DO  7 1 11=  1,  25,  3 

.1  =.U  \ 

RE  (I  I)  = P(  1,.T)  * PLO  AD  (M,  1)  * AR  E A 
RE(II»1)=D(1,.T)  *PL0AP(M,2)  ♦AREA 
RE  (1 1*2)  =B  (1,J)  *PLOAD  (H,  3)*  AREA 
DO  70  1=1,  27 
DO  7 0 .1=1  ,2  7 
OK  ( I,  J)  =0.0 
DOK  (I,J)  =0.0 
DO  75  1=1,  27 
DO  75  .1  = 1 ,27 

OK  (T,J)  = (CA2(I,  J)  ♦PN1(T,J)  /2.0»HN2  (I,.1)  /3.0)*APRA 

DON  (I,J)  = (CA2  (I  , .1 ) ♦ PN  1 (I,  J)  ♦ BN2  (I,.1))  * AREA 

WRITE  (NDOM  DON 

RETURN 

FND 

SO  bROUT  INF.  COEFF  (N  FI.  AT) 

THIS  SURROUTINF  COEFF  CALCDLATS  THE  COEFFICIENTS  PA2(12,  12) 
WHICH  ARK  ASSOCIATED  WITH  QUADRATIC  IN  DISPLACEMENTS, 

PA3  (12,12,12)  ASSOCIATED  WITH  CUBIC  DISPLACEMENTS  AND 
PA4  ( 12,  1 2,  12,  12)  WHICH  ARE  ASSOCIATED  WITH  OUARTIC  DISPLACE- 
MENTS. THESE  COEFFICIENTS  DEPEND  ONLY  ON  THE  MATERIAL  PROPERTY 
ANC  THE  RADHIS  OF  CURVATURE. 

DIMENSION  PA2  (12,  12)  ,PAJ  (12,  12,  12),  ELN  (6,6) 


lUMFNSrON  PJ1  (9  ,9  ) , P34  (9,9)  , F35 (9, 9),  P38  (9,  9)  , P 39(9,  9) 

DIN  FNS  ION  P 4 4 (9,9)  , P 4 5 ( 9 , 9)  , P4  8 ( 4 , 4)  , P4  Q (4 , 0 ) , PS  5 (9  ,0  ) 

DINFNSION  PS  8 (9,9),  PS  9 (9,9)  , P8  8 (9,9)  , PH  9 (9, 9)  , P9  9 (9,  9) 

COnHON  /P  13/  PA  2,  PA  3 
CONNON  /P  14/  ELN , AR  FA , R 

COHnON  /P  1 9 / P 33,r34,p35,P38,P39,P44,P45,P4R,P49,PS5 
CONNON  /P2  0 / Pr>8  , FS9  , FHH  , F89  , P<»9 
DO  1800  1=1,12 
DO  1 800  .1  = 1,12 
PA?(I,.l)  = 0.0 
DO  1 HOD  K = 1 ,12 
1800  P A !(  1,0,  K)  =0.0 

C COFFFTC  IFNTS  A (I  , .1)  , A (I  , J ,K)  , A (T,,1,  K,  L)  WHICH  DF.PFHOS  ON  THF 

C N AT  F P I A1  PROPERTIES  ANT  THE  PADTUS  OF  CUPVATflRE. 

P A 2 (2,2)  =F.t.N  (1,1) 

PA2  (2,  3)  = FI.  N ( 1,  3)  -0.  S*ELN  (1,6)  /P • NFLA  T 
PA2  (2,5)  = F L N (1,3)  ♦ 1,5*FI.N(1,fi)/R*NFLAT 
PA2  (2,  <>)  = Et.N  (1, 2)  *KLN  (1  , S ) /P  * NFL  AT 
PA  2 (2,7)  = FLN(  1,  2)  /P  *NFl.AT 
PA  2 (2, 1 0)  --FI N (1  ,4) 

PA2(2,  1 1)  2.  * F.LN  (1,6) 

PA2  (2,12)  = - F I N (1,5) 

P A 2 ( 3,  3)  = EL  N ( 3,  1)  -0.  S*Fl.N  ( 1,  b)  /P  *N  FLA  T»  0 . 2S*  F LN  (6,6)/(R*R)  *NFt  AT 
PA  2 ( 3 , S ) zRl.N  ( ) , 1)  ♦**  T.  W ( 3 , b ) / R ♦ N PL  AT  -0.  7 S * FT.  N (6,6)  /(R*P|»NPl  A" 

PA2  (3,6)  -rI.S  (2,  ))-O.S*ELN  (2,6)  /P  *NPLA  T ♦ ELN  ( 3,  S)  / I3*N  FLAT-  0.  S* 

1 Ft.  N (5,  6)  / (•’♦n)  ♦ N F L A T 

PA  2 ( 3,7)  = Fl.N  (2 , 3)  /P*NF1  AT-O.  S*FLN(2,6)  / (F*13)  *NFI  AT 
PA2  ( 3,  10)  =-  FIN  ( 3,  4)  *0.  *>*FLN  < 4 , b)  /R  * NP  LA  T 
PA2(  3,  1 1)  = - 2.  *F  l.N  (3, 6)  ♦EI  N (6,6)  /R* NFL  AT 
PA  2 ( 3, 12)  :-FF.N  (3  ,5)  ♦0.5*FLN  (5,6)  /R*  NFL  AT 

PA?  (S,  S)  - Fl.N  ( 3,  3)  ♦ 2.2  5*ELN(6,b)/(R*R)  *NFLAT»1.5*ELH  (3,6)  /P*NF1  Ar 
PA  2 (•’,(.')  -R  I.  N(2,  3)  ♦ 1 . S ♦FLN  (2,b)  / P * N FL  A T ♦ Fl.N  ( 3,  S)  / R*  N FI.  AT  ♦ 1 . S* 

1 Fl.N  (5,6)  / (R*R)  * N RI.A  T 

PA  2 (S.  7)  =F’LN  ( 2,  3)  /"  *N  FLAT  ♦ 1 . 5*Fl.N  (2,b)  / (P^P)  ♦ NFL  AT 
PA?  (5,  10)  - -KT.N  (J  ,4)  -1  .5*  FLN  (4 ,6)  /R*NFI.  A1” 

PA2  (S,  11)  - ?.  * FI  N ( 3,  6 ) - 3 . *E1  N (6,b)  /R*  N F I AT 

PA  2 (5,  12)  - - V I N ( 3,  S)  - 1 . *3  * K T N (5,6)  /R  *NFt.  A 1 

r A2  (6,6)  = ELN  (2 ,2)  *2  . * FT  N (2,6)  / P*  N FT.  AT  ♦ Fl.N  (5,  S)  / ( R *R)  *NFl  AT 

PA2  (6,  1)  ~ Fl.N  ( 2,  21  /R*NM.AT*FLN(2,5|  / (R  *P ) ♦NFI.  A T 

P A 2 ( b , 1 0 ) --Ft  N (2  , 4 ) -FIN  (4  , r> ) / P * N FL  AT 

PA2  (6,  111  --2.*  FLN  (2  , 6)  - 2 . * FT  N (5 , 6)  /P*NF  t.AT 

PA?  (h,  12)  =-F!  N(2,  5)  -FLN(5,S)  /P*N?LAT 

R A2  (7,7)  = F)  N (2  , 2 ) / (P*  P)  * NFI.  AT 

PA?  ( 7,  10)  - El  N ( 2,  4)  /P  *N  FLAT 

PA  2 (7,  1 1)  --.'.♦KIN  (2  , h ) /P*NV1  AT 

R A2  (7,  1 ?)  - Fl.N  (2,  c)  /^  ♦ NFI.  AT 

PA?  ( 10,  1 ))  -FEN  (4,4) 

R A2  ( 10, 11  ) =?  .♦  Ft  V (4  ,b) 

PA?  ( 10,  12)  F1.N  ( 4,  r) 

PA2(11,11)=4.*FIN(6,b) 
nA?  ( 11,  12)  = ?.  ♦ R)  N (S,  6) 

PA  2 (12,1?)  =KTN  (r',S) 
no  200  i k - 1,  i i 

1. 1.  = N ♦ 1 
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DO  2001  L = LL, 12 
2001  PA2  (L,K)  =PA2(K,L) 

C COEFFICTE  NTS  IN  THE  THIRD  DFGPEE. 

PA  3 (2.  3,  11  = (ELN  ( 1,  1)  -ELN  ( 1,2) ) /I  2. 

PA  3 (2,3,5)  = (-ELN  (1,  1)  tELN  (1,2)  ) /12. 

PA  3 (2,  4,  4)  =ELN(  1,  21  /(  3.*P*R)  • NFL  AT 
PA 3 (2,4,8)  «-ELN(1  ,3)  /(3.  ♦F)  ♦NFL  AT 
PA3  (2.4,9)  =- ELN  (1  ,2  )/  (3.  ♦R)  *NFLAT 
PA  3 (2.  5.  5)  = ( ELN  (1,1) -ELN  (1,2))  / I 2. 

PA3  (2, 8, ft)  =ELN  (1  , 1>  . 

P A 3 ( 2,  8,  1)  = FI. N ( 1,  3)  /3. 

PA  3 (2,9,9) = ELN  (1 ,2) /3 . 

PA3  ( 3,  3,  3)  = (RLN  ( 1,  3)  -RLN  ( 2,  3)  ) /4 . ♦ (-ELN  (1 ,6)  ♦ ELN  (2  ,6)  ) /(«.  * R) 
ONPT.AT 

PA  3 (3,  3,  S)  = (-EI.N  (1,  3)  ♦ FLN  (2, 3)  ) /12.*5.*  (ELN  ( 1 ,6|  -BLN  (2,  6))  / 

1 (24. ♦ R) ♦NFLAT 

PA  3 (3,3  ,6)  * (ELN  (1  ,2)  -FIN  (2,2))  /1 2.  ♦ (ELN  ( 1,5)  - ELN  (2,  5)  ) /(  12.  *P) 
1 * N EL  AT 

PA3  (3,3  ,7)  * (ELN  (1  ,2  ) -ELN  (2,2) ) / ( 12.  PR)  *NFI  AT 
PA3  (3,  3,  10)  = (-ELN  (1, 4)  ♦ ELN  (2,4) ) /12. 

PA  3 (3,3,1  1)  M-FTN  (1,6)  *ELN(?,6)  ) /6. 

PA3  (3,3,12)*  (-EI.N  (1  ,5 ) ♦RLN(2,5)  ) /12. 

PA  3 ( 3,  4,  4)  * ELN  ( 2,  .3)  /(  3.*P  *P)  *NFLAT-ELN  ( 2 , 6)  / (6 . * P** 3 ) • NFLAT 
PA  3 (3,4 ,8)  =-ELN  (3  ,3)  / (3.  *R)  *NFLAT»ELN  (3, 6)/  (6.*R  *P)  *NFLAT 
PA3(3,4,9)*-ELN  (2,  3)/  (3.*R)  *N  FLAT*  ELN  (2  ,6)  / (6  . *R  *P)  * NFLAT 
PA  3 (3,  5, 5)  = (-  RT  N ( 1,  3)  ♦ELN  (2,  3) ) /12.*7.  * (-E1.N  ( 1 ,6  ) tSLN  (2,6) ) 
1/(24. ♦ R) ♦NFLAT 

PA3  (3,5,6)  = (-ELN  ( 1,  2)  ♦ FLN  (2,2)  ) / 12  . ♦ (- ELN  (1  ,5  ) «-E  LN  (2  ,5)  ) / 

1 (12. *R) ♦ NFt  h™ 

PA3  (3,  5,7)=  (-ELN  (1,  2)  ♦ELN  (2,2)  )/(12.*R)  ♦NFLAT 
PA  3 ( 3,5,  10)  =(ELN(  1,  4)  -ELN  (2, 4)  ) /12  . 

PA3  (3,5,11)  * (ELN  (1,6)  -FLN  (2,6) ) /6. 

PA  3 ( 3,  5,  12)  = (ELN  ( 1,  5)  - ELN  (2,  5)  ) /12. 

PA  3 (3,8,8)  =RT.N  (1,3)  /3  . - ELN  (1  ,6)  / ( 6.TR)  *NFLAT 

PA3  ( 3,  8.  9)  » ELN  ( 3,  3)  /3.-RLN  (3,6)  / (6  .*R)  * NFLAT 

PA3  (3,9,9)  *EI.N(  2,  3)  /3.  - FLN  (2, 6)  /(6.*R)  *NFI  AT 

PA3  (4,4  ,5)  =ELN  (2, 3)  / (3.*  R*  R)  ♦NFLAT+ELN  ( 2,6)  /(  2.*P**3)  *NFLAT 

PA3(4,4,b)  = ELN  ( 2,  2)  /(  3.*R*P)  *NELA  T»  ELN  (2,5)  / (3.  *R**3)  • NFLAT 

PA 3 (4,4 ,7)  *ELN  (2,2)  / (3.  *R**3)  * N FI.AT 

FA3(4.  4,  10)  =-ELN  (2,  4)  / ( 3 . *P ♦ R ) ♦ NFLA T 

PA3  (4,4, 1 1)  =-2.*EIN  (2,6)  / (3.*R*R)  *NFI.  AT 

PA3  (4,4,12)  *-EI.  N (2,5)  / (3.  ♦R*R)  ♦VFLAT 

PA 3 (4,  5,  8)  =-ELN  ( 3,  3)  / ( 3.  ♦»>)  ♦NFLAT- ELN  ( 3 ,6)  /(2  . *R  *P)  ♦NFLAT 

PA  3 (4,5,9)  --ELN  (2 ,3  ) / (3.  ♦R)  ♦ NF I.  AT  - ELN  (2,6)  ' (2.*R*P)  *NFLAT 

PA3(4,6,i3)  =-  EL N (2,  I ) / (3.  ♦R)  ♦NFLAT- ELN  (3,5)  /(3.*R  ♦R)  ♦NFL A7* 

PA  3 (4, 6, 4)  = - EL N (2,2) / ( 3. *R)  ♦NFLA  3- ELN  (2 ,5)  /(3 .♦R*P) ♦ NFLAT 

PA3  (4,7,8)  =-ELN  (2,3)  / {3.*  F ♦ P ) ♦NFL AT 

PA3 (4, 7, 9) =-ELN  (2, 2) / (3.*R*P) * NFLAT 
PA  3 (4,8,  10)  =ELN  ( 3,4)  / ( 3 . ♦ F)  ♦NFI  AT 
P A3  (4,8, 1 1)  =2.  ♦ FT  N (3,6)  / (3.*  F)  ♦NFL  A^ 

P A3  ( 4,  8,  1 2)  = ELN  ( 3,  5)  / ( ).  ♦R)  ♦NFLAT 
PA3  (4,9,10)  *ELN  (2  ,4)  / (3.  ♦R)  ♦NFL AT 
PA3(4,  9,  11)  *2.*  ELN  (2,  6}  / (I.** I ♦NFLAT 
PA  3 (4,9,  12)  =Et  N (2,5)  / ( 3.  ♦R)  ♦NFLAT 


PA 3 (5,5,5)  = (EIN  (1  , 3 ) - ELM  (2,  3) ) '4.  ♦).♦  (KI  N ( 1,  6)  -ELM  (2,  6)  ) / 
1 (ft.  *R)  * N ELAT 

PAJ  (5.5,61  = (ELN(1  ,2)  -ELN  (2,  2) ) / 1 2.  ♦ (ELN  ( 1 , S > - ELN  (2,5))/ 

1 (12. *R) *N PLAT 

PA1{5,5,7)  = (ELN  ( 1,2) -ELN  (2,2)  ) /(12.*R)  * NFLA  T 
P A3  (5,5,10)  = (-FIN  (1  ,4)  ♦ELN  (2.4)  ) /1 2. 

PA  3 (5,  5,  11)  *(-  ELN  (1,6)  ♦ELM  (2,6))  /6. 

PA  3 (5,5,12)  = l-M  N (1  ,5)  ♦EIN  (2,5)  ) / I 2. 

P A3  (5,  fi,  8)  = F,LN  ( 1,  3)  / 3 . ♦FIN  (1,6)  /(2  .*8)  • NFI.AT 
PA3  (5,8,8)  = EL  N (3,3)  /3  . ♦ Et  N ( 3 , 6 ) / (2 . *R)  ♦ N FT  AT 
PA3  (5,  8,  8)  = Fl.N  (2,  3)  /3  . ♦ELN  (2 ,6)  / (2.  *R)  *NFLAT 
PA  ) (6,  8,  8)  =ELN  ( 1,  2)  /3.  + ELN  ( 1 ,5)  / <3  .*R)  • NFI  AT 
P A3  (6,  8,8)  = ELN  (3 , 5)  / (3 . * P)  ♦ N FL  AT ♦ ET  N ( 2,  3)  /J. 

PA)  (6,  8,  8)  =ELN(2,  2)  /3.^ELN  (2,5)  / (3.*R)  * NFI.AT 
PA3  (7,8,8)  =ELN  (1 ,2)  / (3.  *R)  ♦NFI.A'" 

PA)  (7,  ft,  0)  =ELN  (2,  3)  / (3  .*P)  *NFLAT 
PA  3 (7,  8,  Q)  =FLN  ( 2,  2)  /(  3.  *P)  ♦NFI.AT 
PA  3 (8,6,10) =-pLN  (1,4)  /3 . 

PA3  (8,  8,  1 1)  =-2.  *FLN  (1,6)  / 3. 

PA  3 (8,8,12) = -ET N (1,5) /). 

P A3  (8,8,  10)  = - EL  N ( 3,  4)  /). 

PA  3 (8,8,1  1)=-2.*FTN  (),6)/3. 

PA)  (8,8,  12)  =- EL N ( 3,  5)  /). 

PA  3 (8,8, 10)  = -ET.N  (2,4)  /). 

PA)  (8,  8,  1 1)  =-2.  ♦FLN  (2, 6)  /3. 

PA  3 (8,8,12) =-ELN (2,5)  /). 

DO  3000  1-  1,  12 
no  3000  .1=1  ,12 
DO  3000  K=  1,  12 
PA  3 (J,I , K ) = P A 3 (I, J, K) 

PA3  (I,  K ,.1)  = p A 3 ( T,  J,  K) 

3000  CONTINUE 

C COEFFICIENTS  IN  T HF  FOURTH  DEGREE  EO’JATION. 

DO  1 T = 1 , 8 
DO  1 .1=1,8 
P3)  (1,0)  =0.0 
P3U  (I,  J)  =0.  0 
P 35  (1,0)  =0.0 
P3R  ( I,  J)  =0.0 
P39  ( T , .1 ) =0.0 
P44  (I,  J)  =0.0 
P45  (I , J)  =0.0 
P4R  (I,J)  =0.0 
P48  (I  ,,1)  =0.0 
P55  (I,  J)  =0.0 
P58  (I  , J)  =0.0 
P58  ( I,  J)  =0.0 
P8R  (T,.1)  =0.0 
PR9  (I,  J)  =0.  0 
1 P98  (I  ,0)  *0.0 

P3  3 (8,  8)  = (ELN  ( 1,  1)  - ELN  (1, 2)  ) /4ft. 

P33  (5,5)  =)  .♦  (El  N (1.  1 ) -2.  * El  N (1 , 2 ) ♦ ELN  ( 2 , 2) ) / 1 8 2. 

P33  ( 3,  5)  = (-  FLN  ( 1,  1)  *2.  *ELN  ( 1 , 2)  - ELN  (2, 2 ) ) /64  . 

P3  ) (3,3)  = (FLN  (1  ,1  ) -2 . * ELN  (1 , 2)  ♦ ELN  (2,  2)  ) /64. 


P3  3 (9,  9)  * (FLN  (1,2)-  ELN  (2,2)  ) 24  8. 

Pll  (4,  *>)  = (-ELN  ( 1,  2)  ♦ FLN  (2, 2)  ) /<4B.*R)  *N  FLAT 
P 3 3 (4,4)  = (FLN  (1  ,2  ) - El  N (2,2)  )/(48.*R*R)  • N FI  AT 
n31  (8,  4)  * ( ELN  ( 1,  3)  - El  N (2,  3)  ) /4  8. 

P3  3 (4,8)  = (-ELN  (1  , 3)  ♦FLN  (2,3)  ) / (48.  *R)  *N  FI.  AT 

P4  4 <8, 8)  = (0.  S*  FLN  (I,  2)  ♦ ELN  (3,31  ) /(f.*R*R)*NFLAT 

P4  4 (S,S)  =(EI.N(  1,2)  - FI  N(2,2)  ) /(4  8.*F*R)  * NFI.AT 

P44  (3,5)  = (-ET.N  (1 ,21  ♦FLN(2,2)  ) / (48  . * R*  R)  *N  FL  AT 

P4U(  3,  3)  - ( EI.N  ( 1,2) -FIN  (2,2)  ) /(48.*R*R)  * NFI.AT 

P4  4 <9, 9)  =Fl.N  <2 ,2)  / (4  . *R*R)  *NFLAT 

P4  4 (4,  4)  = - FL  N (2,  2)/(«.*R**3)*NFLAT 

P44  (4,4)  -F  LN  ( 2, 2)  /{4.  * P * • 4)  * NFL  AT 

P4  4 (8,9)  =KLN  (2 ,3)  / (4.  *R*R)  * NFL  AT 

P4  4 (4,  8)  = - ELN  ( 2,  3)  / (4.  *o  **3)  *NFLAT 

P5S  (8,3)  = (ELN  (1  , 1 ) - El  N (1  ,2)  ) /48. 

PSS  (S,S)  = (ELN(1,  1)-2.*KLN(1,2)  ♦PLN(2,2)  )/64. 

P55  (3,5)  = (-FIN  (1  , 1)  ♦2.*EIN(1,2)  -ET. N(2,  2))/64. 

PS  5 ( 3,  3)  = 3.*  (PIN  ( 1,  I)  -2.*  ELN  (1 , 2)  ♦ ELN  (2  ,2) ) /I  42. 
PSS  (4,9)  = (ELN(1  ,2) -FIN (2,  2)  ) /4  8. 

PSS  (4,9)  = (-FIN  (1,2)  ♦ELN  (2,2)  )/(48.*R)  * N FL  AT 
PSS  (4,  4)  = (ELN  ( 1,  2)-  KIN  (2,2)  ) / (48.  *R  *9)  * NFLAT 
PSS  (8,4)  = (F.LN  0 ,3 ) -SI  N (2,3)  ) /4t3. 

PSS  (4, 8)  = (- EI.N  ( I,  3)  ♦EI.N  (2,  3)  ) / (4 8 . *R)  * N F LAT 
P88  (8,8)  = F T N (1  , 1 ) /4  . 

T88  (S,  S)  = ( ELN  ( 1,  1)  - El  N ( 1,  2)  ) /4  8. 

P 89  (3,S)  = (-EI.N  (1  ,1)  ♦ F IN  ( 1 ,2)  ) /4  8. 

P8M  (3,  3)  = (ELN  ( 1,  1)  - EI.N  ( 1 , 2))  /4  8. 

P8H  (9,4)  =EI  N (1 ,2)  /I  2.  ♦ FLN  (3, 3)  /6  . 

PR  8 (4,  9)  = - ( ELN  ( 1,  2)  ♦?,  ♦ELN  (3,  3)  ) /( 12. *P)  * NFLAT 
PR8  (4,4)  = (O.S*EI  N (1  ,2)  ♦ELN  (3  ,3)  ) / (6.  *R*R)  *NFL  AT 
P8 8 (8,4)  = ELN  (1,  3)  /4. 

P88  (4,8)  = - EI.N  ( 1,  3)/(4.*R)  *NF  L AT 
P9  9 (9,8)  =rT.N  (1,2) /I  2.  ♦FIN  (3, 3) /ft. 

P94  (S,S)  = (FLN  ( 1,  2) -ELN  (2,2)  ) /4R. 

P94  (3,5)  = (-F.t.N  (I  ,2)  ♦ ELN  (2,2)  ) 248. 

P99  (3,  3)  = f FLN  ( 1,  ?)-  FLN  (2,  2)  ) /4  8. 

P 99  (9,4)  =E!  N (2  ,2)  /4  . 

*99  (4,4)  = - EI.N  ( 2,  2)  / ( 4 , *R)  * N F L A T 
P49  (4,4)  - FI  N{2,2)  2(4  . *F  *R)  *NFl A" 

P9  0 (8,  9)  =EI.N  (2,  3)  /4  . 

P99  (4,  8)  =-ELN  ( 2,  3)  / ( 4 . *R)  *N  FLA  T 

P34  (S,4)  r (El  n (1  ,2  )-El  N (2,2)  ) / (48.*  R)  *NFL  AT 

P34  (4,  5)  = (-  FLN  (1,  2)  ♦ FLN  (2,2)  ) /4 8. 

P34  (),  4)  = f-FI.N  (1,  2)  ♦FIN  (2,2)  ) / (48.*R)  *N  FLAT 
n34  (3,4)  = (FLN  (1  ,2)  - KI  N (2,2)  )2(48.*R*R)  * N FL  AT 
"34  (S,  8)  = ( FLN  (1,  3)-  El  N (2,  3)  ) /(49.*R)  * NFLAT 

T 34  ( 3,8)  = (-FI  N (I  ,3)  ♦ F I N (2  ,3)  ) / (48.  *F)  *N  FLA’' 

P3S  (8,  8)  - ( - ELN  ( 1,  1)  +FLN  (1,2)  ) /4  8 . 

P3S(S,S)  = ( - ET  N ( 1,  1)  ♦2.*RLN(1,2)  -EI.N(2,?))/4. 

P)S  ( 3,S)  ■=  3 .*  (EI.N  (1 , ) ) -2.*EI.N  (1 ,2)  ♦ EI.N  (2,2))  / I 92. 
p 3S  ( 3,  3)  ^ (-  F.LN  ( ),  ))  ♦?.  *ELN  (1,2)  - ELN  (2,2))  /S4  . 

PIS  <4,  4)  = f-Et.N  (1 ,2)  ♦FIN  (2,2)  ) 248. 

"3S  (4,  4)  = ( FLN  ( 1,  ?)  - El  N (2,2)  1 / (4  R.*P)  * NFI.AT 

P3S  (4,4 ) = (-EI.N  (1  ,2)  ♦FLN  (2  ,2)  ) / (48.  *R*13)  *NFI  AT 
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P 35  (8,4)  = (-13LN  {1  f .1)  ♦ FI  N (2 ,1 ) ) /4S. 

P3  5(4,5)  = (ELN(1,  3)-ELN(2,3))  / (48  .♦»)  * NFLAT 
P3  8 (5,8)  = (-F.LN  (1  , 1)  ♦EI.N  (1  ,2)  ) /4  8. 

P38  (3,  8)  = (FLN  (1 , 1 ) - FI  N (1 ,2)  ) /4H. 

P 38 (5, 9) = (-RLN ( 1,  31  ♦ FLN  ( 2 , 3)  ) /4  8 . 

P 3 8 (4,5)  = (FLN  (1  , 3 ) -E  LN  (2,3)  ) / (4  4 . * p)  * N FT.  AT 
P38(3,  9)  =(FLN(1,  3)-ELN  (2,  3)) /4  8. 

P38  (3.4)  = (-ELN  (1  ,3)  ♦ELN  (2 , 3)  ) / (48.  *R)  *N  FLA* 

P 3 Q (*>,8)  = ( - EL  N ( 1,  2)  ♦FLN  (2,2)  ) /4ft. 

P3  <3  (4,5)  = (PIN  ( 1 .?)  - FI  N (2,  2)  ) / (4«.*P)  ♦ NFL  AT 
P39  (3,9)  = (ELN  (1  ,2  )-EI  N (2,2)  ) /48. 

P39  ( 3.  4)  = ( - EL N ( 1,  2)  ♦ FLN  (2,2)  ) /(4R.*R)  ♦ NFI.AT 

P3  9 (5.8)  = (-ET  N (1  , 3)  ♦FIN  (2 ,3)  ) /4R. 

P39  (3,8)  = ( FLN  ( 1,  3)  - EI.N  (2,  3)  ) /4  8. 

P45  (5,9)  = ( - R T.  N (1  ,2)  ♦FLN  (2, 2)  ) / (48.  *R)  ♦ N FL  A* 

T4  5 (4,  S)  = (KIN  ( 1,  2)  - EI.N  (2, 2))  / (4  8 .*P*R|  • NFl  AT 

P45  (3,4)  = ( EL  N ( t,?)  - F(N(2,2)  ) / ( 4 8 . * R)  *N  FL  AT 

P4  5 (3,4  ) = (-  Rt.N  (1 , 2)  *FLN  (2  ,2)  ) / (4  8.  *R*  R)  *NFT.  AT 

P45  (5,  8)  = ( - FLN  ( 1,  3)  »ELN  (2,  3)  ) / (48.*P)  ♦ N FLAT 

P4S  (3,8)  = (ELN  (1  ,3)-KI  N (2 ,3)  ) / (48.  *R)  *NFL  AT 

P4  8 (8,  9)  =-  (ELN  (1,  2)  *2  .♦KIN  (3 ,3)  ) / ( 12.  ♦P)  * N F L A T 

P4P  (4,  8)  = (0.5*ELN  (1,  2)  ♦SLN(3, 3)  ) / ( 6 . *R  * R)  * SF  L AT 

P4  8 (8,8)  =-ELN  (1  ,3)  / (4  . *R)  *NFIAT 

P4  8 (5,  5)  =(-ELN  ( 1,  3)  ♦ELN  (2,  3)  ) / (4  8.*R)  * N FL AT 

P48  (3,5)  = (EI,N  (1  , 3 ) - E I N(2,3)  ) / (48  . *R)  *N  FI.  AT 

P4R  (3,  3)  = (-  ELN  (1 , 3)  ♦FLN  (2  ,3)  ) / (48.  ♦R)  *NFLAT 

P4  8 (4,  4)  = - FL  N ( 2,  3) / ( 4.  *R)  *N  F LA  T 

P4  8 (4,9)  =ET.N  (2 ,3)  / (4  . *R*  P)*  NFLAT 

P4fi  (4,4)  = - ELN  ( 2,  ,3)/(U.*R**  ))  * NFL  AT 

P44  (8,8)  *-  (EI.N  ( 1 ,2)  +2  . *EI  N (3,  3)  ) / (12.  *R)  ♦NFLAT 

P49  (5,5)  = (-ELN  (1,2)  ♦ FLN  (2,2)  )/  (48.*R)  *NFLA* 

P44  (3,  5)  = (ELN  ( 1,  2) -SI  N (2,2)  ) / (48  .*P)  * NKI.AT 
P4  4 (3,3)  = (-EI.N  (1  ,2)  ♦ELN  (2,2)  )/(48.  *R)  *N  FL  A* 

P4  9 (4,  Q)  = - ELN  ( 2,  ?)  / (4  . * R ) *NFLAT 
P44  (4,4)  =ELN  (2,  2)  /(  4.  *P*R)  *N  FLAT 
P4  4 (4,4)  = -ELN  (2  ,2  ) / (4  . *R**3>  * NFLAT 
P44  (8,  9)  =-ELN  (2,  3)/  (4.  *P)  ♦ NFLAT 
P49  (4,8)  *EI.N  (2 ,3)  /(4  . *P*R)  *NFT.  AT 
P58  (5,  8)  = (ELN  (1 , 1 )-  ELN  (1 ,2) ) /48. 

P58  ( 3,  8)  = ( -ELN  ( 1,  1)  ♦ELN  ( 1, 2)  ) /4  8. 

P58  (5,4)  = (FI.N  (1  , 3 )-ET  N (2 , 3)  ) /48. 

P58  (4,  5)  = (-  ELN  ( 1,  3)  + ELN  (2, 3)  ) /(48.*R)  ♦ NFLAT 
P58  (3,9)=  (-ELN  (1  ,3)  ♦FLN  (2, 3)  )/48. 

P5R  (3,  4)  = (ELN  (1 ,3)- ELN  (2,3)  ) / (48  . *R)  *NF  I AT 
P54  (5,9)  = (ELN  ( 1,  2) -EI.N  (2,  2)  ) /4  8. 

P59  (4,5)=  (-PIN  (1  ,2)  ♦EI.N  (2,2)  )/(48.*R)  * NFL  AT 
P54  ( 3,9)  = (-ELN  ( 1,  2)  ♦ FLN  ( 2 , 2)  ) /4  8 . 

P59  (3,4)  = (ELN  (1  ,2  )-E!  N (2,2)  ) / (48.  *R)  *N  FT.  AT 
P59  (5,  8)  = ( ELN  ( 1,  3)  -ELN  (2,  3)  ) /48. 

P 5 9 ( 3 , 8 ) = (-  EI.N(1,3)  ♦FIN(2,3)  )/48. 

P89  (8,4)  =FLN  (1  ,2)  /I  2.  ♦ELN  (3,3)  /6 . 

P84  (4,8)  = - ( F.I. N ( 1,  23  ♦2.*ELN(3.3)  ) / ( 1 2 . *P  ) *NFL  AT 
P84  (8,8)  =ELN  (1  , 3 ) /U  . 

P89  (5,  5)  = ( EI.N  ( t,  3) -ELN  (2,  3)  ) /48. 
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PR9(3,5)  =(-ELN(  1,  3)  *FIN(2,  .3)  ) /48. 

B8'((l,)|  = ('IN  (1  # 1 ) - E T N (2  , 3 ) ) /«a. 
p«9  (°,R)  - fi. n (2,  3)  /a. 
r«9(u,9)  =-fi  n (j  ,3 ) / (u . * p)  *nfi at 

P«9  (4,  4)  = FI.N  (2,  3)  /(4.*P*P)  *NFLAT 

no  2 I = 1 , <3 
J T = I ♦ 1 
DO  2 .1=.7L,  9 
T 33  (.3,1)  ~ P 3 3 (T  ,.3) 

P44  (J,  I)  =P44(I,.l) 

P55  (.3,1  ) = P55  (T,0) 

PftH  (.7,  I)  = PRR  ( I,  J) 

P99  (.1 , 1 ) = P9  9 (I  ,.7) 

P34  (.7,  I)  = T 34(7,  .3) 

P 3 5 (.3,1  ) = P 3 5 (I  ,.3) 

P 38  M,  I)  =P  38 ( T, J) 

P39  (.7,1  ) = P3  9 (T  , .3) 

P45  (.7,  I)  =045(1, .7) 

P49  (.7,  I)  =P4f)  (T  ,0) 

P4 O (.7,  I)  =P4°(I,.7) 

P59  (.7.1  ) = P5 8 (I  ,.7) 

T59  (.7,  I)  =059(1,  J) 

2 P89(.7,I)  = P9  9 (I,  ,7) 

P ET 77  PN 
FND 

S 77  B°OUT  IN  F FM  V F ( NF  L,  N tlfl  NP,  N X 1 , NC2  , HO  , C ONS  1 , CONS  2 , JCO  , TO  ,IEX  , IPA3T, 

1 NF7  AT) 

[7  T HENS  ION  NODE  (24  4,  9)  , ITYPF  (24  4)  ,X  (24  0)  ,Y(24  0)  ,1  BC  (244,3) 
n I HE  NSI ON  PA2 ( 12, 12)  , PA3 ( 12, 12, 1 2)  , NODES  (24  4) 

DINFNS  ION  OK  (2  7 ,?7)  , OOK  (27 , 2 7)  , R E ( 27)  , B (6,  9)  , CA2  (27,  27) 

CONNON  /o 1 5/  X,Y, NODE, ITYPF, IBC, NODES  _ 

CONNON  /PI  3 / PA2 , PA3 
CONNON  /P11/  0K,D0K,PE,B,CA2 
DO  10  1 = 1 , NF.T. 

L 1 = NODE  ( N , 1) 

1. 2 = N OD  E (1,2) 

L 3=  N ODE (N , 3) 

1.4  =N ODE  (1,4) 

I 5=  N ODE  ( N , 5) 

XH  = X (L2)  -X  (7.3) 

X K=  X (LI)  -X  (L2) 

XL  = Y (L2)  -Y  (L5 ) |] 

X H = Y (L4)  -Y  (1.2) 

IEL  = ITYPF  (1) 

GOTO  ( 1,2,  3,4,  5,  6,  7,  8,  9)  ,IEL 

C BOUNDARY  F I. E HE  NT  IT  Y PE  (1  ) = 1 - -I.  EFT  EXTERIOR  BOUNDARY  EX  BN  ENT 

1 APFA=(XL*XN)  * X H/4 .0 

XI  = ((XH-XL)  *(3.*X1»XN))/(16.  *XN*(XL*XN)  ) 

X2=  ( (3.  *XN  ♦XL)  * (3  .*  XI.iXN)  )/  (16.  *XN*XL) 

X 3 = - ( (XH-X1.)  *(  3.  *XN  ♦XL)  ) /(16  .♦XL*(XL*  XH)  ) 

Y1=-  (3.  *XH*XH)  / (16.*XK*  (XH*XK)  ) 

Y2=0. 25* (XK  *0. 75*XH)  /XK 
Y 3 = 0 .75*  (X*f*0.75*XH)  / (XH*XK) 

X C=X  (L  3)  *T  H/4. 
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YC=Y  (L.5)  ♦ ( 3. *XL  *XN)  /«. 

B (1  , 1)  =X2*Y1 
B(1,2)=X2*Y2 
B (1,3)  = X2*  Y1 
B(1,4)=X1*Y2 
B (1 ,5)  = X 3 * Y2 
B ( 1 , 6)  = X 3*Y  3 
B (1,7)  = XI  * Y3 
B ( 1,  B)  =X  1*Y  1 
B (1 ,9)  =X3*Y1 
7.  1 =-X  H/  ( 2 . *XK*(XH*XK)  ) 

Z2  = (XK* 0.5*  XH) / (XH*XK) 

Z 3=-  (XK  ♦ 1 . 5*XH)  / (XH*  (XH  + XK)  ) 

B (2, 1)  = X2*Z  1 
8 (2,2)  =X2*Z2 
B ( 2,  3)  =X  2*7  3 
B (2,4)  = X1  *72 
B ( 2,  5)  =X  3*7.2 
B (2,6)  = X 3 * Z 3 
B(2.  7)  =X  1 *Z  7 
B (2,9)  = X 1 * 7, 1 
B ( 2, 9)  = x 3*?  1 

B (3 ,1)  = Y1*(  1./(2.  *XI.)  — 1 . / (2  . *X  N)  ) 
B(3,2)=Y2*(1./(2.*XL)-1./(2.*XN)) 
B (3,  3)  = Y3*  ( 1./(2.  *YL)  -1./(2.  *X(1)  ) 
B (3,4)  = Y2  / (2  . * X H ) 

B (3,  5)  =-Y  2/(2.  *XL) 

B ( 3,6)  =- Y3  / (2  . * XT.) 

B ( 3 , 7)  = Y 3/(2.  *XM) 

B (3,8)  = Y 1 / (2  . * X H) 

B ( 3,  9)  = - Y 1/(2.  *Xl) 

B (4, 1)  =2  .*X2  / (XK*  (X  H ♦ X K ) ) 

B (4 , 2)  =-  2.  *X  2/  ( XK  *X  H) 

B (4,3)=2.*X2/(XH*  (XH*XK)  ) 

B ( 4,  4)  =-2.  *X  1/  ( XK  *X  H) 

B (4,5)  =-2  . * X3  / ( X K*X  H) 

B(4, 6)  = 2.  *X  3/(XH*  (XH*XK)  ) 

B (4,7)  =2  .*X1  / (XH*  (XH*  X K)  ) 

B (4,  8)  =2.  *X  1/(  XK*  (XH  + XK)  ) 

B (4,9)  =2.*X3/  (XK*  (X  H ♦ X K)  ) 

B{5,  1)  - Z 1*  (1./(2.  *Xl)  - 1./(?.*XM)  ) 
B (5,2)  =72*  (1  . /(2  . *Xl)  -1./  (2.  *X  H)) 
B (5,  3)  =7.  3*  (1 ./  (2.*XL)  -1./  (2.  *XJ1)  ) 
B (5,  4)  = Z 2/  ( 2.  **H) 

B (5,5)  =-?.2  / (2.*XT  ) 

B (5,  6)  = -7  3/(2.  *XI  ) 

B (5,7)  =73  / (2.*  KM) 

B ( 5,  8)  =?  1/(2.  *XK) 

B (5,9)  =-71  / (2.  * XL ) 

B (6  , 1)  =-  2 . *v  1/  ( XI,  *XM) 

B (6,2)  =-2  . * Y2  / ( X L*  X !») 

B (6 , 3)  =-  2.  * Y 3/  ( X L *X  H) 

B (6,4)  =2  .*  Y?  / (XK*  (XT  *XX)  ) 

B(6,  5)  = 2.  * Y 2/  ( XI  * (XL  * XH)  ) 
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n (f.  ,P)  *2.*Yt/(  XL*  (XL»XH)  ) 

R (f>,  7)  *2.  *Y  3/ (XM*  (X  L ♦ X n ) ) 
n (6,  fl)  =2.  *Y  1/ f XM  • (X  L ♦ X M)  ) 

B ff»  # *2  . * Y1  / (XI.*  (X  L*  X H)  ) 

C CAL  OIL  AT  K THE  B COEFFICIENTS  FOR  THE  FINITE  DIFFERENCE  FORMULAS 

C AT  THF  CENTROID  OF  THE  ELEMENT  AREA. 

C AT  THIS  POINT  ELFMFNT  AREA,  MATRIX  T AND  MATRIX  R ARE  AVAILABLE 

C FOR  ELEMENT  M. 

<50  TO  7 0 

C ROUNDARY  FI  F ME  NT  I1’1  Y PE  (2  ) =2  - -TOP  EXTERIOR  ELEMENT 

2 AREA*  (X  II  ♦ X K ) *XM/U  . 0 

X1=  ( (XK-  XH1  *(3  . *XH*  XK))  / (1*>.  *X  K * (X  H*K  K ) ) 

X 2=  ( (I.  * XK  ♦XII)*  (3  .*■  XH  ♦XK)  )/(1R.*XH*XK) 

X3=-((XK-XH)  *(  3.  *XK  *XH)  ) /(1fe.*XH*(XH»  XK)) 

Y 1 *-  (3.*  XM*  XM)  / (16.  * X I * (X  «♦  X I ) ) 

Y 2-  (0.  75*XM  *XL) /( 4. *XL) 

Y 3 *0.75*  (0.  75*  X M*  XL)/(XM*XI.) 

X C-  X (L  3)  ♦ ( 3.  *X  H *X  K)  /4  . 

YC  = Y ILK)  -XM/4  . 

B ( 1,  1)  = X 1*Y  ? 

R (1  ,?)  = X3*  Y2 
B ( 1,  3)  = X 3*Y  3 
13  (1  ,4)  *X2*Y3 
B ( 1, 5) *X  2*Y  1 
R ( 1 ,h) a X 3*Y  1 
nn,7)  »xi*y3 
B{  1,R)  ~Y  1 • Y 3 
R (1,9)  * X 1 * Y 1 
H (2,  I)  = Y 2/  ( 2.  *XK) 

R (2,2)  rY2*  (1./(2.*XH)-1./(2.  *XK)  ) 

B (2,  3)  = - Y 2/  ( 2.  * X II) 

P (2,4)  = Y I * ( )./(?.  *XH)  - 1./(2.*XK)  ) 

R(2  ,51  a Yl  * (1 ./  (2.  *XH)  -1./  (2.*XK) ) 

B (2,  b)  a-y  1/(  2.  *XH) 

P (2,7)  *-Y)/  (2  . * XH  ) 

R ( 2,  R)  * Y • / { ?.  *X  K) 

P (2,0)  = Y 1 / (2  . * X K) 

7 1 = XM/(7.  *XL*(XM*Xt  ) ) 

72=-  (0.5*  YM*  XL)  / (XM*  X I ) 

7 3*  ( 1.  5*XM*XI.)  / {XM*  (XM*XI.)  ) 

n ( i,  i)  -xi *■>3 

0(1,2)  = X 2 * 7 2 

0(3,  ))  a X I * ’ 2 

P (J  , 4)  =X.'*  7 I 

u(  3,  S)  - y >*•»  i 

P ( ),R)  *Y  )*■») 

H ( 3,  7)  =v  I* • ) 

R ( 3 , *3 ) a x 1 ♦ 7 3 
B ( 3,  *>)  a V 1 *-  1 

R (4  , 1)  ->  . * Y3  / (XK*  (X  M ♦ X K)  ) 

P(4,  2)  a-.>.  * Y 3/  ( Y K *VII) 

H (4  , 1)  *2  . • Y2  / ( XII*  (XH  ♦ X K)  ) 

P (4,  4)  =-  7.  *Y  3/(XH*XK) 

P (4,5)  = - 7 . * Y 1 / ( XI*  * X K ) 
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B (4,  6)  =2. +Y  1/ (XH*  ( X H ♦ * K ) ) 

B (4,  7)  =?.  + Y 3/(XH*  (XH+XK)  ) 

B (4,8)  = 2.+  Y3/(XK*  (XH  + XK)  ) 

B (4, 9)  = 7.*Y1/(XK*(YH  + XK)) 

B (5, 1)  =72  / (2.  + XK) 

B(5,  2) -7.2*  ( 1 . / f 2.  +XH)  - 1./(2.*XK)  ) 

B (5,3)  =-72  / (2 . * XH ) 

B (5,  4)=Z3*  (1./ (2.*XH)  - 1 ./ (2.  *XK)  ) 

B (5f  5)  =7  1*  ( 1./(  2.  *XH)  - 1./<2.  *XK)  ) 

B (5,6)  =-7.1  / (2 . * XH  ) 

B (6,  7)  =-7.  3/  (2.  * X H ) 

B (6, ft)  =73/(2.  + XK) 

B (6 , 9)  =71  / (2  . * XK) 

B (6  , 1)  =-  2.  *X  1/  ( XL  *X  M) 

B (6,2)  =-2  . * X2  / (XI.*XM) 

B (6,  3)  =-  2.  + X 1/(XL  +XM) 

B (6 ,4)  =2  .*  X2  / (XH*  (XI.*  XH)  ) 

B (6,  5)  = 2.  *X  2/ (XL*  (XL  + XM)  ) 

B(6,6)=2.*X3/(XI.*  (XL*XM)) 

B(6, 7)  =2.  *X  3/  (XH*  (XL*XM)  ) 

B (6  ,ft)  =2.  * XI  / (XM*  (X  L*  X M ) ) 

B (6,  9)  =2.  *X  1/  (XL*  (XL+XM)  ) 

CALCULATE  "HE  B COEFFICIENTS  FOP  THE  FINITE  DIFFERENCE  FORMULAS 
AT  THE  CENTROID  OF  THE  ELEMENT  APEA 

A T THIS  POINT  "HE  FLFMENT  APEA,  MATRIX  T AND  MATPIX  B APE 
AVAILABLE  FOP  THE  FLFMENT  M. 

GO  TO  70 

BOUNDARY  ELEMENT  ITYPE(3)=3 PTGHT  EXTERIOR  BOUNDARY  FLENFN" 

3 APFA  = (XL*  XM)  + XK/4  .0 

X 1=  ( (XM-XL)  * (3.+XL+XM)  )/(16.*XN*  (XL+XM)  ) 

X2  = ( (3.  + XM  + XI.)  * (3.+XI  +XM)  )/(  16  .♦  XL+XM) 

X3=-  ( (XM-  XL)  * (3.*  XM  + XL)  ) / (16.*XL*  (XL+XM) ) 

Y 1=  (0.  75+ (XH+0. 75+XK)  ) / (XH  + XK) 

Y2=  (0.25*  (XH  + 0.76+XK)  ) / XH 

Y3  = - (3.  +XK  +XK)  / ( 1 6.  +XH*  ( XH+XK)  ) 

XC*X(L1)  -XK/4. 

Y C=Y  (L6)  ♦ (3  . * X I.  +XM)  /4  . 

B (1,  1)  =X  2+Y  1 

B (1 ,2)  =X2*  Y2 
B ( 1 , 3)  = X 2*Y  3 
B (1 ,4)  =X1  + Y2 
B(1,5)=X3*Y2 
B (1 ,6)  = X 3 * Y3 
B(1,  7)  =X  1+Y  3 
B (1  , fl)=X1*Y1 
B(1,9)=X3*Y  1 

B (2,1)=  X2*  (XH+1.5  + XK)/  (XK*  (XH  + XK)) 

B(2,2)=-X2*  (XH  + 0.  5+ XK)/ (XH+XK) 

B (2,  3)  = X2*XK/(2.  +XH  + (XH+XK)  ) 

B(2,4)  =-X1*  (XH  + 0. 5+XK)/ (XH+XK) 

B (2,  5)  =-X  3+  (XH  + 0.  5+XK)  / (XH  + XK) 

B (2,6)  =X3*XK/  (2  .*  XH  * (XH  + XK)  ) 

B(2,7)  =X  1 + XK  / (2.  + XH*  (XH  + XK)) 

B (2,  ft)  = X 1*  ( XH  ♦ 1.  5+XK)  / (XK*(XH+XK)) 
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b (2 , 9)  =X)  ♦ (XH*  1 .S*XK)  / (XK*  (XH*XK) ) 

P (3,  1)  «Y  1*  (1./(2.*XI  ) - 1 ./  (2.*XH)  ) 

P (3,?)  = Y2*  ( 1./(  2.  •YI.)  - 1 . / ( 7 . • XM)  ) 
B(3,3)«Y3M1./(?.*XL)-1./(2.*XH)) 

H f 4)  = Y 2/(  2.  *XH) 

P ( 3 , S)  = - Y2  / (2. ♦XI) 

P(3,f)  = -Y 3/(2. *XI  ) 

P (3,7)  = Y ) / (2  . * X**) 

P(  3,P)  * Y 1/(2. ♦XM) 

R(3,9)  = - YI  /(2.*XT  ) 

B («,  1)  = ( 2.  *X2)  / (XK*  (XH*XK) ) 

P (4,2)  =-2.*X2/(  XH*XK) 

11(4,3)  = (2  . ♦ X2  ) / (XH*  (XH*XK) ) 

P(4, 4)  = - 2. *X  1/  ( X H *X  K) 

P (4,S)  = -2.*X1/(XH*XK) 

R (4,  f)  = 2.  ♦ Y 3/(XH*  (X  H ♦ XK)  ) 

H (4,7)  *2  . * X 1 / (XH*  (YH*XK)  ) 

B ( 4 , 8)  = 2.  *X  1/ { XK  * (X H ♦ XK) ) 

P (4,9)  = 2.*X3/(XK*  (XH*  X X)  ) 

7 1= (XH* 1.  S*YK)  / (XK* (XH*XK) ) 

72=-  (XM  ♦ 0 . S * X »r) /(XK*XH) 

7.  3 = X K / (2.  ♦XH*  (X  H*XK  ) ) 

P (5,  1)  =7  1*(  1./(  2.  ♦Xt)  -1./  (?.  *XM)  ) 

B (S  , 2)  3 72 * (1./(2.*XT.)  -1./(2.*XN)  ) 

P(S,  3)  =7.  )•(  1./(2.  *XL)  - 1./(2.*XH)  ) 

B ( S , 4)  *72/  (2.*  XH) 

P (S.  S)  --2  2/(2.  *XL ) 

P (5, ft)  =-73/  (2  - * X T.) 

P f *> , 7 ) =7.  1/(2.  *XH) 

P (S,fl)  =71  / (2.  * XH) 

B (%0)  =-71/(2.  ♦XL) 

R (ft,1)  =-2  . * YI  / (Xl*X  H) 

P(ft,  2)  = - 2.  *Y  2/  ( XL  *X  H) 

P (6,1)  =-2  .*  Y3  / (XT  *XH) 

B (ft,  4)  =2.  ♦Y2/(XH*  (XL*XH)  ) 

B (ft,S)  =2.*Y2/(XT*  (XL*XH)  ) 

R (6, 6)  =2.  *Y  3/ (XL*  (XL*XH)  ) 

B (ft,7)  =2.*  Y3/  (XH*  (XL*  X ")  ) 

R(ft,  8)  *2.  *Y  1/(XH*  (XL*XH)  ) 

P (6,9)  =2.*Y1/(XL*  (X  L*  X H)  ) 

C CALCULATE  THE  B COEFFICIENTS  FOP  THE  FINITE  DIFFERENCE  FORHfl  LAS 

C AT  THE  CENTROID  OF  THF  ELEHENT  AREA. 3 

C AT  THIS  POINT  THE  FLEHFNT  AREA,  THE  MATRIX  T AND  THE  NATRTX  B 

C ARE  AVAILABLE  FOR  THF  ELEMENT  H. 0 

GO  TO  70 

C POtlN  DAP  Y FLEHFNT  IT  YFE  (4 ) =4  - - EOTTOH  EXTERIOR  BOUNDARY  ELEHENT 

4 APEA=  (X  H*XK)  ♦XL/4  .0 

X 1 * - 3 . ♦XL*XI,/(  1b.  *XH*(XH*XI.)  ) 

X2  = (XH*  0.  7r>*  XL)  / (4.  *XH) 

X3  = 0.75*(XH*0.75*  XL)  /(XH*XI.) 

Y1=  { (XK-XH)  *(3.  *XH*XK)  ) /(16.  *XK*  (XH*XR)  ) 

Y 2=  ( (XH*  3 . * X K ) * (3  . * XH  ♦ XK  ) ) / (If  .*XH*XK) 

Y3  = - ( (XK-XH)  *(  3.  *XK  *XH)  ) / (1f.*XH*(XH*XK)  ) 

7 1 * - X I.  / (2  . ♦ XH*  (XH*X  L)  ) 
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2 2= (XH  *0. 5*XL)  / (XH*  XL) 

23=-  (XH*  1.  5*XL)  / ( XL*  ( X H*XL)  ) 

XC=X  (L3)  ♦ (3.*XH*XK)/4. 
rc=Y  (L5)  -XL/4, 

B (1,1)=X2*Y1 
B(1,  2)  =X  2*Y  2 
B (1 ,3)  =X2*  Y3 
B(1, 4)  =X  1*Y2 
B (1 ,5)  =X3*Y2 
B(1,6)=X3*Y3 
B (1 ,7)  =X1*  Y3 
B ( 1 , 8)  =X  1 *Y  1 
B (1,4)  = X3  * Y 1 
B ( 2,  1)  =X  2/  ( 2.  *XK) 

B (2,2)  =X2*  (1 ./  (2.  *XH)  -1./  (2.  *XK)  ) 
B ( 2,  3)  =-X2/(2.*XH) 

B (2,4)  = X1*(  1./(2.  *XH)  -1./(2.*XK)  ) 
B (2 , 5)  = X3*  ( 1 . / (2.  *XH)  -1./  (2.  *XK)  ) 
B ( 2,  6)  =-X  3/(2.  *XH) 

B (2  ,7)  =-X1  / (2,*XH) 

B (2,  R)  =X  1/(2.  *XK) 

B (2,4)  = X3  / (2  . * XK) 

B (3,  1)  =Y  1*2  2 
B (3,2)  =Y2*72 
B (3,  3)  =Y  3*2  2 
B (3,4)  = Y2 * 21 
B ( 3,  5)  = Y 2 * 7,  3 
B (3  , h)  = Y3  * 73 
B (3, 7)  = Y 3*2  1 
B (3  , fl)  = Y1  * 21 
B ( 3,  4)  = Y 1 *2  3 
B (4, 1)  =2.*X2/(XfC*  (XH*  XK)  ) 

B (4,  2)  =-  2.  *X  2/  ( XK  *X  H) 

B (4,3)  =2  . * X2  / ( XH*  (XH*  X K)  ) 

B (4,  4)  =-2. *X  1/(  XK  *X  K) 

B (4,5)  = -2 . * X3 / (XK*XH) 

B(4, 6)  = 2.  *X  3/(  XH*  (X  H*XK)  ) 

B (4,7)  *2  . * X 1 / ( XH*  (XH  * X K)  ) 

B(4,  R)  *2.  *X  1/  ( XK  * (X  H*  XK)  ) 

B (4,4)=2.*X3/(XK*  (XH*XK)) 

B (5,  1)  =72/(2.  *XK) 

B (5,2)  =72*  (1./XH-1.  /XK)/2. 

B (5,  3)  = -7  2/(2.  *XH) 

B (5,4)  =21  * (1  ./XH-1.  /XK)  /2. 

B(5, 5)  =2  3*  ( 1./XH-  1.  /XK)  /2. 

B (5,6)  =-73  / (2  . * XH  ) 

B (5,7)  =-71  / (2.  * XH  ) 

B (5  , R)  -7  1/(2.  *XK) 

B (5,4)  =73/(2. *XK) 

B(h,  1)  *-  2 . * Y1  / (XI,*X  H) 

B(*,  2)  = - 2 . * Y 2/  ( XL  *X  H) 

B (h,  1)  =-2.*Y)/(XT*XH) 

B(f>,  4)  =2.  *Y2/(XM*(XH*XL)  ) 

B (6,5)  =2.*  Y2  t (XT*  (XH*  XI.)  ) 
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B(6,6)  =2.*Y3/ (XL*  (XB*XL)) 

B (6,7)  *2.  *Y  3/( XH*  (XN*XL)  ) 

B (6,B)  =2.*  Y1/(XH*  (Jf  «♦  X I ) ) 

B(6,9>  *2.  *Y  V(XL*(XM*XL>) 

CA  LCUI.ATE  'rHF  B COEFFICIENTS  POP  THE  FT  NIT  E DIFFERENCE  FORMULAS 
AT  THE  CENTROID  OF  THE  ELEMENT  AREA 

AT  THIS  POIN^  THF  ELEMENT  AREA, THE  MATRIX  T AND  THE  MATRIX  B ARE 
AVAILABLE  FOR  THE  ELEMENT  M. 

00  TO  70 

INTERIOR  ELEMENT  ITYPE(S)=S 
ARFA*  ( X H ♦ XK)  * ( X L*  X M ) /U.O 

X 1*  ( (XM-XL)  * (3.*XL*XN)  )/  (16.*XN*  (XL*XM)  ) 

X2=  ( (l.*XM*  XL)  *(3.*X1*XM)  ) / (16 . • XL *XM) 

X3=-  C (XI- XT  )*  (3.*XM»XL)  )/ (16.*XL*  (XN*XL)) 

Y 1 = - ( (XK-XH)  * ( 3.  *XK  ♦XII)  ) / ( 1 6 •*  XH*  ( XH*  XK)  ) 

Y2*  ( <3.*XH*  XK)  *(3  .*XK*KH1)  / < 16.  •*H*X*1 
Y3*  ( (XK-XI3)  ♦ (3.*XH*XK)  ) / (1b.  *XK*  (XH*XK)  ) 

XC=X  (L  3)  ♦ ( 3.  *XH*XK)  /«. 

YC  = Y (I.S)  ♦ ( 3 . • XL*  X M)  /4  . 

B ( 1,  1)  = X 2*Y  3 
R (1 ,21  =X2* Y2 
P(1,  3)  = X 2 *Y  1 
H (1  ,4)  = X1*  Y2 
B (1,  6)  =X  3*Y  2 
0 (1,6)  = X 3 ♦ Y 1 
B ( 1 , 7)  * X 1 ♦ Y 1 

P (1  ,H)  = X 1 * Y 3 

B ( 1,  *3)  -X  3*Y  3 
X4  = - 1 . / (2  . * XH) 

XS=  1./  (?.  *X  H)  - 1 . / (2  . ♦XK) 

X6=1./(2.* XK) 

Y 4=-  1./  ( ?.  *XL) 

Y5=1./(2.*XL)-1./(2.*XM) 

Y 6 = 1 . / ( 2.  *XM) 

B (2,  1)  = X2*X 6 
B (2,  2)  =X?*XS 
R (2, 3)  = X7*X4 
P (2, 4)  = X 1*X  S 
B (2,6)  =X1*XS 
R ( 2,  6)  =X  3 * X 4 
B (2,1)  = X 1 * X4 
B (2,  B)  =X  1 *Y  6 
R (2,4)  = X)*Yh 
B ( 3,  1)  -Y  1* Y S 
B { 1,2)  = Y2*  Y6 
R ( 3,  3)  * Y 1 *Y  *> 

R ( 1 , 4)  = Y2*  Y6 
B ( 1,  r>)  = Y ?*Y  4 
R (3,6)  = Y 1 * Y 4 
P(  3,  7)  -V  1*Y6 
R ( 3 , P)  = Y 3 * Y6 
B (3,  R) * Y 3*Y 4 
71=2. /(XK*  ( XII  ♦ Y K)  ) 

7.  2=  - 2.  / (X  ?I*XK) 
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Z 3=  2 . / ( XH  * ( XH*  X K)  ) 

Z4  = 2. / (XH* ( XH ♦ X L) ) 

Z 5=-2.  / ( XL  * XM) 

76  = 2. /(XL*  ( XH*  X L)  ) 

B (4,  1)  =X  2*7  1 
B (4,2)  =X2*72 
B (4,  3)  =X  2*7  3 
B (4,4)  =X1  * Z? 

B (4 , 5)  =X  3*7  2 
B (4,6)  =X3*  73 
B (4 , 7)  =X  1*7  3 
B (4,8)  = X 1 * 7 1 
B (4 , 9)  =X  3*Z  1 
B (5,1)  =Y5*X6 
B (5,  2)  = Y 5*X  5 
B (5,3)  =Y5*X4 
B (5,  4)  = Y6*X  5 
B (5,5)  =Y4*X5 
B (5,  6) =Y  4*X  4 
B (5,7)  =Y6*X4 
B ( 5,  8)  = Y 6 *X  6 
B (5, 9)  =Y4*X6 
B (6,  1)  =Y  3*7  5 
B (6,2)  =Y2 *75 
B (6 , 3)  =Y  1 *Z  5 
B (6,4)  =Y2*  74 
B (6,  5)  =Y  2*7  6 
B (6 ,6)  =Y1  *76 
B (6 , 7)  =Y  1*7  4 
B (6,8)  =Y3 * 74 
B (6,  9)  =Y  3*Z  6 
GO  TO  70 

IT Y PE (6)  - UPPER  LEFT  CORNER  ELEHENT. 

6 ARE  A = (XH*XM)  /4  . 

XC=X  (L 4)  -0.  75*X H 
YC=  Y (L3)  *0. 75*XH 
X 1=  (-  3.  *XM*XH)  / (16.*  XL*  (XL*XH)  ) 

X2=  (XL*  0.  75*XH)  /(4.  *XL) 

X3  = 0 . 75*  (XL*0.  75*  XH)  / (XH*XT.) 

Y 1=  (-3.  *XH*XH)  / ( 16.  *XK  * ( XH*  XK)  ) 

Y2  = (XK*0.75*XH)  / (4.  *XK) 

Y 3=0. 75*  (XK  *0.  75*XH)  / (XH ♦ XK ) 

B (1,  1)  =X2*Y  1 

B ( 1 ,2)  =X2*  Y2 
B ( 1 , 3)  =X  2*  Y 3 
B (1,4)  =X3* Y2 
B ( 1 , 5)  =X  1*Y2 
B (1  ,6)  =X1*  Y3 
B ( 1 , 7)  =X 3*Y 3 
B (1 ,8)  =X3*Y1 
B ( 1,  9)  =X  1 *Y  1 
Z 1 =-  XH  / (2  . * XK*  (XH  *X  K)  ) 

Z 2=  (XK  *0.  5*X  H)  / ( X H*  XK) 

73=-  (XK*1 ,5*XH)  /(XH*(XH*XK)  ) 
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H (2,  1)  = X2*?1 
B(2,  2)  s ¥ 2*7.  2 
B (2, 3)  = X2  * 7 3 
0(2,  4)  = Y 1*72 
B (2,5)  = ¥1*72 
R (2, 6)  * X 1*7  1 
B (2 ,7)  = X 3 * 7 3 
B (2,  8)  =X  3*7  1 
H (2,0)  =Xl*?1 
7.Z  1 * XN/  (2.  *XL*(XL  ♦XI)  ) 

Z72=-  (XI.*0.5*X«)  / (XL*XB) 

ZZ  3a  (XL*1.  5*XH)  /(XN*  (XL*XN)  ) 

B (3,1)=Y1  *772 

0(3,  2)  =Y2*7Z2 

B (3, 3)  =Y  3*77.2 

B (3,4)  =Y2*7.Z3 

B ( 3,  5)  =Y2*7Z  1 

B (3,6)  = Y 3 * 7, 2 1 

B ( 3,  7)  = Y 3*Z 3 3 

B (3,8)  = Y 1 * 7 Z .3 

B (3,0)  =Y  1*77.  1 

774=2. / (XK*  (XH  + XK)) 

7.7. 5=-2./(XH*XK) 

7Z6  = 2./(XH*  (XH*  XK) ) 

B (4,  1)  =X  2*77.4 
B (4,2)  = X2  * 7.  75 
8(4,  3)  = X 2*326 
P (4,4)  =X3*7Z5 
B (4, 5)  = X 1 *7.  Z 5 
B (4,6)  =X1  *7.36 
B (4, 7)  =X  3*77.6 
P (4,8)  = X 1 * 7, 34 
B ( 4 , 0)  =X  1 *ZZ  4 
B (5,1)  =7.7.2*  Z1 
B(5,  2)  =ZZ  2*7,  2 
B (5, 3)  =7Z2*Z3 
B (5,  4)  = ZZ  3*7,2 
B (5,5)  =7Z 1 * 72 
B (5,  6)  =7.Z  1 *7. 3 
B (5,  7)  =72  3*Z 3 
B (5,8)  =ZZ 3*  Z1 
B (5,  0)  =7 Z 1 *Z  1 
Y4  = 2./  (XI.*  ( XL*  X N)  ) 

Y 5=  - 2.  / ( XL  *X8) 

Y6=2./(X«*  (XL*XN) ) 

B (6,  1)  =Y  1 *Y  5 
B (6,2)  =Y2*YS 
B(f  , 3)  = Y 3*Y  5 
B (6,4)  =Y2*Y6 
B (6,  5)  =Y2*Y4 
B (6,6)  = Y 3* Y 4 
B (6 , 7)  =Y3*Y6 
B (6 , 8)  =Y  1*  Y 6 
B (6,9)  =Y1*Y4 
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GO  TO  70 

C I TYPE (7)  - UPPER  RIGHT  CORNER  EL  EH ENT . 

7 AREA=(XK*X!1)  /4. 

XC  = X (L2) *0.75*XK 
YC=Y  (LI)  *0.75*XN 
X1  = (-3.  * XH*  Xfl)  / (16.  *XL*  (XL*X(1)  ) 

X 2=0. 25* (XL *0. 75*XN)/XL 
X3  =0.75*  (XL*  0.75*  Xfl)  / (XL*  XU) 

Yl  = (-3.*XK*XK)/(16.*XH*  (XH*  X K)  ) 

Y 2=0 . 25* (X  H *0. 75*XK) /XH 
Y3  =0 .75*  (XH*0.75*XK)/  (XH*XK) 
Y4=XK/(2.*XH*(XH*XK)  ) 

Y5=-  (XH*0.5*XK)  / ( XH*  X E) 

Y6=  (XH*1.  5 *XK)  / ( X H*  X K) 

B (1  , 1)  =X2*Y3 
8(1,2)  =X  2*Y  2 
B (1,3)  =X2*Y1 
B(  1,  4)  = X 3*Y  2 
B (1 ,5)  = XI  * Y2 
B ( 1, 6)  =X  1*Y  1 
B (1  ,7)  = X3*Y1 
B ( 1 , 8) =X 3*Y 3 
B (1 ,4)  = X1*Y3 
B ( 2,  1)  = X2*Y6 
B (2,2)  =X2*Y5 
B (2,  3)  =X  2*Y  4 
B (2,4)  =X3*  Y5 
B (2,  5)  =X  1*Y5 
B (2, 6)  =X  1 * Y4 
B ( 2,  7)  =X  3*Y  4 
B (2,8)  = X3*  Y6 
B (2,  4)  =X 1 *Y  6 
X4  = X"1/(2.*XL*  (XL*  X8)  ) 

X5=-  (XL  *0.  S*XM)  / (XL  *XN) 

X6=  (XL* 1 .5*  XN)  / (XM*  (XL*XB) ) 

B(  3,  1)  = Y 3*X  5 
B(3,2)=Y2*X5 
B ( 3 , 3)  = Y 1 * X5 
B ( 3 , 4)  =Y  2*X  6 
B (3,5)  =Y2*X4 
B ( 3,  6)  = Y 1 *X  4 
B (3,7)  = Y1*X6 
B (3,  8)  =Y  3*X  6 
B (3,4)  = Y3*  Y4 
Y7=2./(XH*(XM*XK)  ) 

Y 8 =-  2 . / ( XH  * Xff ) 

Y4=2./(XK*  ( X H ♦ X K ) ) 

B (4,1)  =X2*Y9 
B (4 , 2)  = X 2 *Y  8 
B (4,3)  =X2*Y7 
B (4, 4) =X  3*Y  8 
B (4,5)  = X 1 * Y 8 
0(4,6)  = X 1 * Y7 
B (4, 7)  =X  3*Y 7 
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n ( a # m = x y9 

P (4,9)  = X 1 * Y9 

B (5,  1)  = X 5* Y 6 

B (5,2)  =XS* Y5 

B (S,  1)  =X  5*  Y 4 

P (5,4) =X6* Y5 

B ( 5 , 5)  = X 4 *Y  5 

B (5,6)  = X-»*  Y4 

B (5,  7)  =Xt>*Y  4 

P (5,9)  = X 6 * Y 6 

P(5,  4)  =X4*Y6 

X7=2 . / (XL*  (XL*XM)  ) 

00000 

X R = -2.  / (XL  *X,H 

00000 

X 9 = 2 . / ( XM*  (XL*  X M>  ) 

00000 

P(b,  1)  = Y 3*X  R 

03000 

P (6 ,2)  = Y2  * XR 

00000 

B (6,  1)  =Y  1*XP 

00000 

P (6,0)  = # y o 

00000 

0(6,5)  = Y 2*X  7 

00000 

P (6,6)  = Y 1 * X7 

00000 

0(6,7)  =Y  1 * X 9 

00000 

B (6,0)  = Y 3 * X 4 

00000 

B (6,9)  = Y 1 * Y 7 

00000 

r.o  to  7 0 

00000 

ITYPFfR)  - LOW  EP  LEFT  CORNER  ELEMENT . 

00000 

A RFA - (XM*  XL)  /4  . 

XC=X  (I  3)  *0.  25*X  H 

YC  = Y (LJ)  -0.75*Xt 

X 1=  (-3.  *XL*XL)  / ( 1 6. * XN*  ( XM*  X L)  ) 

00000 

X2  = 0.25*(XM*0.75*XL) /XM 

00030 

X3  = 0 . 75  * (XM*0.75*XT  ) / (XN*  XL) 

00  00  0 

Y 1=  (-3.  *XH*XH)  /(  16.  *XK*(XH*XK)  ) 

00000 

Y2=0.25*(XK*0.7S*XH)/XK 

00000 

Y3=0.76*(XK*0.  7 5*  XH)  /(XH*XK) 

00000 

Y4=-XH/(2.*  XR*  (XH*XK) ) 

00000 

Y 5=  (XK  *0 . 5 * X H)  /(XH*  KK) 

00000 

Y6  =-  ( XK*  1 . 5 *XH)  / ( XH  * ( X H*  X K)  ) 

00  000 

Y 7=2./  (XK*  (XH*XK)  ) 

00000 

Y 0=  - ?.  / ( XH  * XK) 

ooooo 

Y9  = 2./(X:I*  ( X H ♦ X K ) ) 

00000 

X 4 = - YL/  (2.  * XM  * ( XM  *yL)  ) 

ooooo 

X5  = ( X M ♦ 0 . 5 * XL)  / (XL*  XM) 

ooooo 

X6  = - (XM  *1.  5*XL)  /(  XL*  ( XI.  ♦XPI)  ) 

ooooo 

X7-2.  / (XM*  ( XT*  XL)  ) 

ooooo 

X 0 = - 2. / fXL*XM) 

ooooo 

X9=2./(Xl.  *(X.M*yl)  ) 

ooooo 

P (1  , 1)  = X2 * Y 1 

ooooo 

P ( 1 , 2)  = v ?*v  2 

ooooo 

0 (1  , 3)  = X2*  Y3 

ooooo 

0 ( 1, 4)  =X 1*y 2 

ooooo 

P (1 ,5)  = X(*Y? 

ooooo 

0 ( 1 , 6) =X  3 * V 3 

ooooo 

P (1 , 7)  =X1*  Y3 

ooooo 

H ( 1, 9)  =X  1*Y  1 

ooooo 
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B (1,9)  =X)*Y1 

00000 

B(2,1)  = X2*Y4 

00000 

B ( 2 , 2)  = X 2 *Y  5 

ooooo 

B (2,3)  =Y2* Y6 

00000 

B ( 2 , 4)  = T 1*v  5 

ooooo 

B (2,5)  = X 3 * Y 5 

ooooo 

B ( 2,  6)  =X  3*Y  6 

ooooo 

B (2,7)  = X1*  Y6 

ooooo 

B (2,  8)  = X 1*Y4 

ooooo 

B (2,4)  =X3*Y4 

ooooo 

B(3,  1)  =Y  1*X5 

ooooo 

B (3,2)  = Y2*X5 

ooooo 

B ( 3,  3)  = Y 3*X  5 

ooooo 

P (3,4)  =Y2*X4 

ooooo 

B ( 3 , 5)  =Y  2*X  6 

ooooo 

B (3,6)  = Y3*  X6 

ooooo 

P(3,  7)  =Y  3*X  4 

ooooo 

B (3,fl)  = Y1*X4 

ooooo 

B(  3,  4)  = Y 1*X  6 

ooooo 

B (4 , 1)  =X2*V7 

ooooo 

B (4,2)  =X2*Y8 

ooooo 

B (4,  3)  = X 2*Y  4 

ooooo 

B (4,4)  = X1  * Y8 

ooooo 

B (4,  5)  =X 3* Y 4 

ooooo 

B (4,6)  = XI  * Y 4 

ooooo 

B (4,7)  = X 1*Y4 

ooooo 

B (4  , H)  = X1*  Y7 

ooooo 

B (4, 4)  =X  3 * Y 7 

ooooo 

B (5, 1)  =Y4*X5 

ooooo 

B (5,  2)  =Y5*X  5 

0)000 

B (5,3)  =Y6*X5 

ooooo 

B (5,  4)  = Y 5**  4 

ooooo 

B (5,5)  = Y 5 * X 6 

ooooo 

B (5,  6)  = Y 6*X  6 

ooooo 

P (5,7)  = Y6*X4 

ooooo 

B (5,  8)  = Y 4*X  4 

ooooo 

B (5,4)  = Y4 • X6 

ooooo 

B (6,  1)  = Y 1 * X 3 

ooooo 

B (6,2)  =Y2*XH 

oooo  o 

B (6,  3)  = Y 3*X  8 

ooooo 

B (6,4)  = Y2  * X7 

ooooo 

B (6, 5)  = Y2*X4 

00  00”* 

B (6,6)  = Y 3 * X 4 

oooc  > 

B (6,7)  =Y  3*X  7 

ooooo 

P (6,8)  - Y1  * X7 

ooooo 

B (6 , 4)  = Y 1 *X  4 

ooooo 

RO  TO  70 

ooooo 

ITYPE(4)  - LOWER  RTGHT  CORNER  ELEBSNT. 

AR£A  = (XI.*XK)  /4  . 

XC-X  (L5)  *0.  75*XK 

YC  = Y (L5)  *0. 25*  XT. 

ooooo 

X Y«(-3.*XL*XI.)  /(  16.*XB*  (XB*XL)  ) 

ooooo 

X2  = 0.25*(XB*0.75*XI.)  /XB 

ooooo 

X 3=0. 75*  (XM +0.7  5*  XL)  / (XN*XL) 

ooooo 
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Y1=(-3.*XK*XK)/(16.*XH*(XH*XK)) 

00000 

Y2=0.25*(X''*0.7S*X*)/XH 

0000  1 

Y 3 =0.75*  (XH+0.75*  XK) / ( XK ♦ XK) 

00001 

Y4=XK/ (2.  *X  H* ( X H ♦ XK) ) 

0000  1 

Y5 --  (XH*0.5*XK)  / ( XH  *X  K) 

00001 

Y6=  (XH* 1. 5*XK) /(XK* (XH*XK) ) 

0000  1 

Y7  = 2./(XH*(XH*XK)  ) 

0000  1 

YR  = -2.  / (X  H*XK) 

00001 

Y9=2./(XK*  (XH*XK)  ) 

00  00  1 

X4=-  XL/  (2  . * XX*  (XM ♦X  L)  ) 

00001 

X5  = (XM*0.S*XL)/(XL*XM) 

0000  1 

X6=-  (XI*  1 . 5*  XT.)  / (XL*  (XI*XH)  ) 

00001 

X7=?./  (XM*  (XM  ♦XL)  ) 

00001 

Xfl  = -2.  / ( XT.  * XM) 

0000  1 

X 9 =2  . / (XI.*  ( XM  ♦ X I. ) ) 

00001 

B(  1,  1)  =X  2*Y  3 

0000  1 

B (1  ,2)  =X2*  Y2 

00001 

B (1,  3)  =X2*Y  1 

0000  1 

B (1 ,4)  =X1* Y2 

00001 

B ( 1,  5)  =X  3* v 2 

0000  1 

B (1 ,6) =X3*Y1 

00001 

B(  1,7)  =X  T*Y  1 

0000  1 

B (T ,8)  = X1*  Y3 

00001 

R ( 1 » 9)  =X  3*Y  3 

0000  1 

B (2,1)  =X2*Y6 

00001 

B(2,  2)  = X 2*Y  5 

0000  1 

R (2,  3)  =X2*  Y4 

00001 

B (2,  4)  = X 1 *Y  5 

0000  1 

B (2  ,S)  =X1*  Y5 

00001 

B (2, 6)  =X  3*Y  4 

0000  1 

B (2,7)  = X1  ♦ Y4 

00001 

B (2, B)  =X 1 * Y 6 

0000  1 

R (2 ,9)  =X3*  Y6 

00001 

B(  3,  1)  = Y 3 *X  5 

0000  1 

B (3,2)  = Y2  * X5 

00001 

B ( 3,  3)  =Y  1 *X  5 

00001 

B (3,4) = Y2  * X4 

00001 

B(3,5)  =Y2*X6 

0000  1 

B (3,6)  = Y 1 * X6 

00001 

B (3,  7)  = Y 1 *X  4 

0000  1 

B (3,B) =Y3*X4 

00001 

B ( 3,  9)  = Y 3 *X  6 

0000  1 

B (4, 1)  =X2*  Y9 

00001 

B (4,  2)  =X  2*Y  8 

0000  1 

P (4,3)  = X2  * Y7 

00001 

B (4 , 4)  =X  1*Y8 

0000  1 

B (4,5)  =X3*  Y8 

00001 

B (4 , 6)  =X  )♦  Y 7 

0000  1 

B (4,7)  =X1*Y7 

00001 

B (4, 8)  =X  1*Y9 

0000  1 

B (4,9)  = X 3 * Y9 

00001 

B (5,  1)  =X5*Y  6 

00  001 

B (5,2) = X5 • Y5 

0000  1 

B (5,  3)  =X  5*  Y 4 

00001 
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K (5,  4)  =X4*Y  5 

00001 

R (S,S)  =X6*YS 

0000  1 

B (6, 6) =X6 ♦ Y4 

00001 

B (5,  7)  =X4*Y4 

0000  1 

B (5,8)  = X4  * Y6 

00001 

B (5,9)  = X 6*Y  6 

0000  1 

B (6.1)  =Y3*X8 

B (6 , 2)  = Y 2*X  8 

0000  1 

B (6, 3)  ~ Y 1 * X8 

B (6 , 4)  =Y2*X7 

B (6,6)  = Y2*  X9 

B (6,6)  =Y  1*X<> 

B (6,7)  =Y1 * X7 

00001 

B (6,  R)  =Y  3*X  7 

B (6,9)  =Y3*X9 

0000  1 

GO  TO  70 

0000  1 

C ELEMENT  AREA  AND  THE  MATRIX  E ARE  AVAIT  ABLE  FOR  ^HE  ELEMENT  N. 

70  WRITE(NXI)  B.  AREA 

IF  (IEX  .EQ.  1)  GC  TO  66 
CALL  AT  BA  (PA2,B,CA2) 

WRITE  (NC2 ) CA2 
GO  TO  10 

66  CALL  THCOEr  ( VC2  , IP  A3  T,  XC,  Y C,  WO  , CO  VS  1 , CONS  2,  X 0,  Y 0,  N FI.  AT) 

10  CONTINUE 
RETURN 
END 


SUBROUTINE  INCDNC  (NEL, NRCWS , NCOIS, NB,  NT  , NL, NR, NS CHM , ICTOUT) 
DIMENSION  NPR  (20)  .NODE  (244,9)  ,NN  (20)  ,MH  (20)  ,NODES<244)  ,ITYPE(244) 
DIMENSION  X (240)  ,Y(240)  ,IBC(244,  3) 

COMMON  /Pi  5/  X,  Y,  NODE,  ITYFE.IBC,  NODES 
DO  32  1= 1 , N RONS 

32  NPR  (I)  =NCOLS 

I P ( ICTOUT  .NE.  1)  GO  TO  8C0 

NPC=NR-Nl-1 

IL=  N £♦  1 

I  R = NT~  1 

DO  33  I=IL, IR 

33  NPR  (I)  =NPR  (I)-NPC 
N ROM  1=NROWS-1 

NN  (1)=  1 

DO  34  1=  1 , N ROM  1 

34  N N (I  ♦ 1 ) =NN  (I ) ♦ N PR  (I ) 

I P=  NT-N  B* 1 

DO  35  1 = 1 ,TR 
II=N  B+I- 1 

35  MM  (I)  =NN  (II)  NL-1 

800  N RON  = 1 
NSUM=NPR  (1) 

I F ( NSCHM  . EO.  1)  GO  TO  4C0 
DO  1 0 M=1 , NEL 
IEL= ITYP  E ( M) 

IF  ( ICTOUT  .NE.  1)  GO  TO  801 

I F ( NROW  .GE.  NB  .AND.  NROW  .LE.  NT  ) GO  TO  100 

801  GO  TO  ( 1 ,2  ,3  ,4  ,5  ,6  ,1 ,8,9)  ,IEL 

1 NODE  (H,  3)  =NODES  (M) 

NODE  (M,2)  = NODE  (H,3)  +1 
NODE  (N,  1)  = NODE(M,  3)  *2 

NODE  (M, 7)  =NODE S (M)-NPR (NROW) 

NODE  (M,  4)  =NODE(M,  7)  ♦ 1 
NODE  (M , 8 ) =NODE  (M,7) *2 
NODE  (M,  6)  = NODES  (M)  *NPR  (NROH) 

NODE  (ft,  5)  = NODE  (M,6)  +1 
NODE  (M,9)  = NO  DE ( M , 6)  ♦ 2 
GO  TO  20 

2 NODE  (M,  4)  =NODES  (M) 

NODE  (N,7) =NODE  (M,4) -1 
NODE  (M,  R)  =NODE(M,  4)  *1 

NODE  (M,2) = NODES  (M)»  NPR  (NROW) 

NODE  (M,  3)  =NODE(N,  2)  - 1 
NODE  (M, 1)  = NODE  (M,2) +1 
NODE  (M,  5)  =NODE(M,  2)  ♦ NPR(NROW) 

NODE  (M,6) = NODE (M,5) -1 
NODE  (M,  9)  =NODE(M,  5)  +1 
GO  TO  20 

3 NODE  (M,  1)  =NODES  (M  ) 

NODE  (M  , 2 ) = NODE (M, 1)  -1 
NODE  (M,  3)  = NODE  ( M , 1)  -2 

NODE  (H,  8)  = NODES  (M)-NPH  (NRCW) 

NODE  (M,  4)  = NODE  ( M , 8)  - 1 
NODE (M,7) = NODE (N,8) -2 
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NODE  (N, 9) = NODES (II)  ♦ N PR  ( N ROW ) 
NO  DE  (N,  6)  =NODE(N,  9)  -1 
NODE  (N , 6 ) =NODE  (M,  9) -2 
GO  TO  20 

4 NODE  (M  ,5)  = NODES  { M) 

NODE  (M,  6)  =NODE(M,  5)  - 1 
NODE  (M  , 9 ) = NODE  (M  , 5)  *1 

NODE  (PI,  2)  = NODES  (N)-NPR(NROW) 

NODE  (tl,3)=NODE  (11,2)  -1 

NODE  (H,  1)  = NODE(I1,  2)  *1 

NODE  (PI,  4)  = NODE  (M  , 2)  - N PR  (NBCW) 

NODE  (M,  7)  =NO  DE  ( M , 4)  - 1 

NODE  (PI,  8 ) =NODE  (PI,  4)  *1 

GO  TO  20 

5 NODE  (PI, 2)  =NODES  (PI) 

NODE  (N,  1)  = NO  DE  ( PI  , 2)  »1 
NODE  (PI,  3)  = NODE  (11,2)  -1 
NODE(N,  4)  = NODES  (N)  - NPR  (NROW) 
NODE  (PI, 7)  = NODE  (11,4)  -1 

NODE  (K,  8)  =NODE  ( PI  , 4)  O 

NODE  (PI,  5)  = NODE  ( H , 2 ) ♦ N P R ( N FOW  ) 

NO  DE (M, 6)  =NODE(M,  5)  - 1 

NODE  (N,9)  = NODE  (PI, 5)  ♦ 1 

GO  TO  20 

6 NODE  (M  , 7 ) =NODES  (PI) 

NODE  (H,  4)  = NO  DE ( M , 7)  +1 
NODE  (PI, 8)  =NODE  ((1,7)  *2 

NODE  (PI,  3)  = NODES  ( PI ) ♦NPR  (NROW) 
NODE  (11,2)  = NODE  (M,3)  *-1 
NODE  (N,  1)  =N0DE(P1,  3)  *? 

NODE  (PI,  6)  = NODE  (M  , 3)  ♦ NPR  (NROW) 
NODE  (N,  5)  =NODE  (PI  , 6)  +1 
NODE  (PI, 9)  = NODE  (11,6)  +2 
GO  TO  20 

7 NODE  (11,8)  =NODES  (PI) 

NODE  (H,  4)  =NODE(PI,  8)  - 1 
NODE  (PI  7)  = NODE  (PI, 8)  -2 
NODE(H,  1)  = NODE  (II,  8)  + N PR  (NROW) 
NODE  (N  , 2)  = NODE  (P1,1)-1 

NODE  (H,  3)  =NODE(N,  1)  - 2 

NODE  (M  , 9 ) = NODE  ( II,  1 ) ♦ N PR  ( N FOW ) 

NODE  (H,  5)  = NODE(PI,  9)  - 1 

NODE  (11,6)  = NODE  (11,9)  -2 

GO  TO  20 

8 NODE  (N  ,6)  =NODES  (PI) 

NODE  (PI,  5)  =NODE(PI,  6)  *1 
NODE  (PI , 9 ( = NODE  (M,6)  *2 

NODE  (N,  3)  = NODE  (N,  6) -NPR  (NROW) 

NODE  ((1,2)  = NODE  ( M , 3)  ♦ 1 

NODE  (N,  1)  = NODE  (N , 3)  ♦ 2 

NODE  (M,  7)  = NODE (II,  3)  - NPR  (NROW) 

NODE  (11,4)  = NODE  (PI, 7)  *1 

NODE  (H,  8)  = NO  DE  ( II,  7)  *2 

GO  TO  20 
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9 NODF  (d,  9)  =NO  DES  (d  ) 

NODE  (d,  5)  = NO  DE ( d # 9)  - 1 
NODE  (d, 6)  = NODE  (d,  9)  -2 
NODE  (d,  11  =NODE(d,  91  -NPR(NROU) 

NODE (d,2) = NODE  (d, 1) -1 
NODE  (d,  3)  =NODE(d,  1)  - 2 
NODE  (d,8) = NODE  ( d , 1 ) - N P F ( N FOW ) 

NODI  (d,  4)  = NODE  ('  8)  - 1 

NODE  (d , 7 ) = NODE  (d,8) -2 
GO  TO  20 
100  I =NROW-NL* 1 

I F < NODES  (d)  .LE.  dd(I)  ) GO  TO  300 
GO  TO  ( 11 ,12,1 3,14,15,16,17,18, 19),IEL 

1 1 NODF  fd,  3)  = NO DES  (M) 

NODE  (d , 2 ) = NODE  (d,3)  *1 
NODE  (d,  1)  = NO  DE ( d,  3)  ♦ 2 
NODE  (d , 7 ) = NODE  (d,3) -NPP  (NROW) 

NODE  (d,  4)  = NO DE  ( d , 7)  ♦ 1 
NODE  (d,R) = NODE  (d,7)  +2 
NODE(d,b)  =NODE(d,  3)  4NPR ( N RO W ♦ 1 ) 

NODE (d,5) = NODE  (d,6)  >1 
NODE  (d,  9)  = NO  DE ( d , 6)  *2 
GO  TO  20 

12  NODE  (1,  4)  =NODES  (d) 

NODE  (d  , 7 ) = NODE  (d,4)  -1 
N O D E ( d , R)  =NODE(d,  4)  ♦ 1 
NODE  (d  , 2 ) = NODE  (d,4) ♦NPR(NFOW4l) 

NODE  (d,  3)  = NO  DE ( d , 2)  - 1 
NODE (d, 1 ) = NODE  ( d . 2) ♦ 1 
NODEId.  S>  -NODE(W,  21  *NPR  ( NROW  *2) 

NODE  (d  , 6 ) = NODE  (d,5)  -1 
NODE  (d,  9)  = NODE  ( d , 5)  *1 
GO  TO  20 

1 3 NOD E (d,  1)  =NODES  (d) 

NODE  (d  , 2 ) = NODE  (d,  1)  -1 
NODE  (d,  3)  =NODE  (d,  1)  - 2 
NODE  (d,fl) = NODE  (d , 1 ) - NP R ( N ROW ) 

NODE  (d,  4)  = NODEfd,  8)  - 1 
NODE  (df  7»  =NODE  ( d , 8)  -2 
NODF  (d,  9)  =NODE(d,  1)  ♦NPR(NROW*1) 

NODE  (d  , 5)  = NODE  (d,9)  -1 
NODE  (d,  6)  = NODB(d,  9)  - 2 
GO  TO  20 

14  NODE  (d,  S)  =NODES  (d) 

NODE  (d  , 6 ) = NODE  (d,5)  -1 
NODE  (d,  9)  =NODE(d,  5)  *1 
NODF  (d  , 2 ) = NODE  (d,5)  -NPR(NPOW) 

NOrE(d,  3)  =NODE  (d,  2)  - 1 
NODE  (d,1)  = NODE  ( d , 2)  *1 
NODE  (d,  4)  = NODE  (d,  2)  -NPR  (NROW-1 ) 

NODE  (d,  7)  =NODE  (d,  4)  - 1 
NODE  (d,fl)  =NODE  (d,4)  *1 
GO  TO  20 

\b  NODF (d , 2 ) = NODE S (d) 


NODE  (d,  1) =NODE  (d  , 2)  *1 
NODE  (d,  3)  = NODE  (d,  2)  - 1 
NODE  ((1,4)  = NODE  («,2)  -NPB  (NROW) 

NODE  (d,  7)  =NODE((1 , 4)  - 1 

NODE (N , 8 ) = NODE  (N, 4)  *1 

NODE  (d,  5)  = NODE  (d,  2)  ♦ NPR  (NROW*  1) 

NODE  ((1,6)  =NODE  (d,5)  -1 

NODE  ((1,  9)  =NODE(d,  5)  *1 

GO  TO  20 

16  NODE  (d,  7)  = NODES  (H) 

NODE  ((1,4)=  NODE  ((1,7)  *1 
NODE  (fl,  8)  = NO DE( (1 , 7)  *2 

NODE  (fl  , 3 ) = NODE  (d,7)  ♦ NPP  (NBOW*1) 

NODE  ((1,  2)  = NODE ( d,  3)  *1 

NODE  (d,  1)  = N0DE  (d,3) *2 

NODF  (fl,  6)  =NODE((1,  3)  *NPR(NROW*2) 

NODE  (d,5)  = NODE  ((1,6)  *1 

NODE  ((1,4)  = NO D E ( d , 6)  ♦ 2 

GO  TO  20 

17  NODE  (N,  R)  =NODES  (N  ) 

NODE  (d,4)  = NODE  ((1,8)  -1 
NODE  ((1,7)  =NODE(d,  8)  - 2 

NODE  ((1,1)  =NODE  (d  , 8)  NPR  (NROV*1) 

NODE  (N,  2)  =NODE((1,  1)  - 1 

NODE  (d,3) =NODE  (d,  1)  -2 

NODE  (d,9)  =NODE(d,  1)  *NPR(NROW*2) 

NODE  (11,5)  = NODE  (11,9)  -1 

NODE  (d,  6)  = NODE  (II,  9)  -2 

GO  TO  20 

18  NODE  (d,  6)  *NODES  (d) 

NODE  (11,5)  = NODE  (11,6)  *1 
NODE  (H,  9)  =N0DE((1,  6)  ♦ 2 

NODE  (0,3) =N0DE  (0,6) -NPR (NFOVI) 

NODE  (d,  2)  -NODE(d,  3)  *1 
NODF  (d, 1) = NODE  (d,3)  ♦? 

NODF  (d,  7)  = NODE (d,  3)  - NPR  (NROW-  1) 
NODE  (d  , 4 ) =NODE  ( d , 7)  *1 
NODF(d,R)  = NODE(d,  7)  ♦? 

GO  TO  20 

19  NODE  (d,  4)  =NODES  (d) 

NOPE  (d,S) * NODE  (d,4)  -1 
NODE  (d,  6)  = NODE (d,  9)  -2 

NODE  (d, 1)  = N 0 D E (d,9)  -NPP  (NROW) 

NODE  (d,  2)  - NODE  ( d , 1)  - 1 

NODE  (d,  J)  = N 0 D E (d,  1)  -2 

NODE(d,fl)  =NODF(d,  1)  -NPR(NROW-I) 

NODE  (d , 4 ) NODE  (d , R)  -1 

NODF  (d,  7)  -NODEfd,  P)  - 2 

GO  TO  20 

300  GO  TO(  21,  22,  23,  2 4,  25,  26,  27,  28,29) 
21  NODE  (d , 3 ) = NODE  S (d) 

NODE  (d,  2)  =NODE(d,  3)  ♦ 1 
NODE  (d,  1 ) = NODE  (K,  3)  ♦ 2 
NODE  (d,  7)  = NODE(d,  3)  - NPR  ( N RO  W- 1) 
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NODE  (8,4)  = NODE  (8,  7)  ♦ 1 

NODE  (8,8)  = NODE  (8,7)  ♦ 2 

NODE  (8,  6)  =NODE(N,  3)  ♦NPR(NROV) 

NODE  (8,5)  = NODB  (11,6)  *1 

NODE  (8,  9)  =NODE(8,  6)  *2 

GO  TO  20 

22  NODE  (8,  4)  =NODES  (8) 

NODE  (8,7)  =NODE  (11,4)  -1 
NO  DE  (8, 8 ) = NODE  (8,  4)  >1 

NODE  (N,2)  = NODE  (8,4)  *NPF  (NROHH) 

NODE  (8,  3)  = NO  DE ( 8 , 2)  - 1 

NODE  (8,1) = NODE  (8,2)  »1 

N0DE(8,  5)  =NODE(8,  2)  ♦NPR(NROW*2> 

NODE  (N, 6) = NODE  (H,5) -1 

NODE  (N,  9)  = NO  DE ( 8 , 5)  ♦ 1 

GO  TO  20 

23  NODE  (8,  1)  =NODES  (8 ) 

NODE  (M , 2 ) = NODE  (8,1) -1 
NODE  (N,  3)  = NO  DE ( 8 , 1)  - 2 

NODE  (8,8) =NODE  ( M , 1 ) -NPF (NPOW-1 ) 

NODE  (8  , 4)  = NODE  (II,  8)  - 1 

NODE  (8,7) =NODB  (8,8) -2 

NODE  (8,  9)  =NODE(8,  1)  ♦NPR(NROW) 

NODE  (8,5)  = NODE  (8,9)  -1 

NODE  (8, 6)  = NO  DE  ( 8,  9)  -2 

GO  TO  20 

24  NODE  (8,  5)  =NODES  (8) 

NODE  (8,6)  = NODE  (8,5)  -t 
NODF  (8, 9)  = NODE  ( 8 , 5)  *1 

NODE  (8,2) = NODE  (8,5) -NPR  (NPOW-1) 
NODE  (8,  3)  =NODE(8,  2)  - 1 
NODE  (8,1) =NODE  (8,2)  ♦ ! 

NODE  (8,  4)  = NODE  (8,  2)  -NPR(NROW-2) 
NODE  (8,7) = NODE  (8,4) -1 
NODE  (8,  8)  = NODE  ( 8 , 4)  »1 
GO  TO  20 

25  NODE  (8,  2)  * NODES  (8) 

NODE  (8,1)  = NODE  (8,2)  *1 
NODE  (8,  3)  =NODE  (8,  2)  - 1 

NODF  (8,4)  = NODE (8,2)  - NFB(N ROW-1) 

NODE  (8,  7)  = NODE  (8, 4)-1 

NODE  (8,  8)  = N 0 D E (8,  4)  ♦ 1 

NODE  (8,5)  =NODE  ( 8 , 2) ♦ N PR ( N ROW ) 

NODE  (8,6)  = NODE(8,  5)  - 1 

NODE (8,9) = NODE  (8 ,5)  *1 

GO  TO  20 

26  NODE  (8,7)  =NODES  (8) 

NODE  (8, 4)  = NO  DE  ( 8 , 7)  ♦ 1 
NODE  (8,8)  = NODE  (8,7) *2 

NODE  (8,  3)  = NODE  (8, 7)  *NPR  (NROW) 
NODE  (8,2)  =NODE  (8,3)  ♦ ! 

NODE  (8,  1)  = NODE(8,  3)  *2 

NODE  (8, b)  = NODE  (8 , 3)  ♦ NPP  (NFOWM  ) 

NODE  (8,  5)  = NO  DE ( 8 , b)  ♦ 1 
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NODE  (11,9)  = NODE  (8,6)  *2 
go  TO  2 0 

27  NODE  (II,  8)  =NODES  (8) 

NODE  (N ,4 ) = NODE  (8,8) -1 
NODE  (M,7)  =NODE(B,  R)  - 2 

NODE  (W  , 1 ) =NODB  ((1,8)  ♦ NPB (NBOW) 

NODE  (B,  2)  =NODE  (H,  1)  - 1 
NODE  (N, 3) = NODE  (B,1) -2 
NODE(M,9)  =NODE(B,  1)  ♦NPR(NFOWM) 

NODE  (8 , 5) = NODE  (B, 9) -1 
NODE  (B,  6)  = NODE  (B,  9)  - 2 
GO  TO  20 

28  NODE  (B,  6)  =NODES  (B) 

NODE  (B , 5) = NODE  (B,6)  *1 
NODE  (B,  9)  = NODE  ( B , 6)  »2 

NODE  (8,3) = NODE  (B,6) -NPR (NBOW -1) 

NODE  (B,  2)  = NO  DE ( B , 3)  ♦) 

NODE  (B, 1) = NODE  (B, 3)  +2 

NODE  (B,  7)  = NODE  (fl,  3)  -NPR  (N  ROW-2) 

NODE  (B , 4 ) = NODE  (8,7) +1 
NODE(B,  8)  =NODE{B,  7)  ♦ 2 
GO  TO  20 

29  NODE  (B,  9)  =NODES  (B) 

NODE  (B,5) = NODE  (B,9) -1 
NODE  (B,  6)  = NODE(B,  9)  -2 

NODE  (8,1 ) = NODE  (B,9) -NPB (N BOW-1 ) 

NODE  (8,  2)  =NODE (B,  1)  - 1 
NODE  (B , 3 ) = NODE  (8,1) —2 
NODE  (B,  8)  = NODE  (8,  1)  -NPR  (N  ROW- 2) 

NODE  (B,4)  = NODE  ( 8,8)  -1 
NODE  (8,7)=NODE  (B,  8)-2 
GO  TO  20 

20  IF  ( NODES  (8)  ,FQ.  NSUB  ) GO  TO  200 
GO  TO  10 
200  NROW=NROW*  1 

IF  ( N ROW  .GT.  N ROWS)  GO  TO  10 
NSUB  = NS0B*  NPR  (NROW) 

10  CONTINUE 
GO  TO  90 

400  DO  60  8=1, NEL 
IEI.  = ITYPE  (B) 

I F ( ICTOUT  .NE.  1)  GO  TO  802 

I F ( NROW  -GE.  NB  .AND.  NROW  .LE.  NT)  GO  TO  500 
802  GO  TO(61, 62, 63, 64, 65, 66, 67, 68, 69)  , IEL 
61  NODE  (B,3) =NODES (B) 

NO  DE  (B,  7)  =NODE  (B,  3)  -1 
NODE (B , 6 ) = NODE  (B,3) *1 
NODE  (B,  2)  = NODE  ( B , 3)  ♦NPR  (NROW) 

NODE  (B , 4 ) = NODE  (8,2)  -1 
NODE  (H,  5)  = NODE  ( B , 2)  M 
NODE  (H, 1) =NODE  (8,2) ♦NPR (NROW ♦ 1 ) 

NODE  (B,  8)  =NODE(fl,  1)  - 1 
NODE  (B,9)  =NODE  (B,  1)  ^1 
GO  TO  80 
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NODE 

(8,8 

NODE 

(8,  1 

NODE 

(8,9 

NODE 

(8,4 

= NODES ( M) 

-NODE  (8,4) *1 
E NODE (8 , 4)  ♦ 2 
= NODE (8,4)  -NPF (NFOW) 

E NODE ( 8 , 7)  *1 
= NODE  (8,7) ♦ 2 
= NODE(M,4)  ♦ NPR(NROWM) 
- NODE (8,8) 

=NODE(M,  8)  *2 

=NODES (M ) 

-NODE  (8, 1)  -1 
= NO  DE ( 8 , 1)  *1 
= NODE  (8 , 1)  -NPF  ( N ROW  - 1 ) 
eNODE(8,  2)  - 1 
• NODE  (8,2)  *1 
: NO  DE ( 8 , 2)  -NPR(NROW-2) 
= NODE  CM  , 3)  -1 
= N 0 D E ( 8 , 3)  ♦ 1 

= NODES  (M) 
eNODE  (K#  5)  -1 
=NODE(M,  5)  - 2 
E NODE  (M , 5)  ♦NPF  ( N FOR ) 

= NODE ( 8,  9)  - 1 
= NODE  (H , 9) -2 
: NODE  (8,  5)  -N  PR  (N  ROW-  1) 
E NODE  ( M f 6)  -1 
eNODE(8,  6)  -2 

eNODES  (M) 

= NODE  (8, 2)  -1 
rNODE  (8,2)  +1 
E NODE ( 8 , 2)  ♦NPR  (NROW) 
eNODE (8,1) -1 
= NODE ( 8 , 1) 

= NODE  (8,2)  - NPR  (NROW-1) 
=NODE ( 8 , 3)  - 1 
= NODE  ( M , 3) 

= NODE S (M) 

=NODE(8,  7)  +1 
= N ODE  (8,7)  *2 
;NODE  (8,  7)  ♦NPR(NROW) 
eN0DE  (8,4)  ♦ ( 

=NODE(8,  4)  ♦ 2 
"NODE  (8,4)  ♦ NPR(NfiOWM) 
: NO DE ( 8 , 8)  *1 
"NODE  (8,R) +2 

= NODE  S (H) 

=NODE(8,  8)  *1 
"NODE  (8,8)  ^2 
"NODE (8,  8)  -NPR  (NROW-1) 
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NODE  (B,  2) 
NODS  (H , 5) 
NODE  (H,  7) 
NODE  (B,3) 
NODE  (H#  6) 
GO  TO  80 
NODE  (B,  6) 
NODE  (B,3 ) 
NODE  (N,  7) 
NODE  (B,5) 
NODE  (fl,  2) 
NODE  (B  , 4 ) 


NODE  (B,  4)  ♦ 1 

NODE  (B,4)  *2 

MODE (B,  4)  -NPR  ( NROB-2) 

NODE  (H ,7)  *1 

NODE (H , 7)  ♦ 2 


NODES  (M) 

NODE  <B,6) -1 

NODE (B , 6)  -2 

NODE  (Br6) ♦ NPB (NBOH) 

NODE(B,  5)  - 1 

NODE  (N , 5) -2 


NODE(B,9)  =NODE(fi,  5)  ♦ NPR(NROW*1) 

NODE  (B,1)  = NODE  (B,9)  -1 
NODE  (N,  8)  =NODE  (fl,  9)  - 2 
GO  TO  80 

69  NODE(H, 9) =N0DES (H) 

NODE  (fl,1 ) = NODE  (Hf  9)  -1 
NODE  (B,  8)  =NODE  (B,  9)  -2 
NODE  (M,5) =NODE  (B,9) -NPR  (NHOW-1) 

NODE  (fl,  2)  =NODE(M,  5)  - 1 
NODE  (M  , 4)  = NODE  ( M,  5)  -2 
NODE  (fl,  6)  =NODE  (B,  5)  - NPR  (N ROW-2) 

NODE  (fl,  3)  =NODE  (M,  6)  - 1 
NODE  <M  ,7) =NODE  (B,6) -2 
GO  TO  80 
600  I=NROi—  NL  + 1 

IF  ( NODES  (B)  .LE.  MB  (I))  GO  TO  600 
GO  TO  (7  1,7  2 ,73,74  ,76, 76, 77  .1  8,7  9 ) ,IEL 

71  NODE  (fl,  3)  =NODES  (M) 

NODE  (fl , 7 ) =NODE  (N,3)-1 
NODE  (fl,  6)  =NODE  (fl,  3)  >1 

NODE  (B  , 2 ) = NODE  (B,3) ♦NFB(NROW) 

NODE  (H,  4)  = NODE (H,  2)  - 1 
NODE  (B,5) = NODE  in, 2) *1 
NODE  (B,  1)  =NODE(B,  2)  + NPR  (NROW*1) 

NODE  (B  , 8) =NODE  (B,1) -1 
NODE  (fl , 9)  = NODE ( fl,  1)  *1 
GO  TO  80 

72  NODE  (M,  4)  =NODES  (fl) 

NODE  (M ,2 ) = NODE  (M,4)  +1 
NODE  (M,  5)  = NODE  ( M,  4)  *2 

NODE  (M,  7 ) =NODE  (fl  ,4) -NPR  (NROW) 

NODE  (B,  3)  = NODE { fl  , 7)  ♦ 1 
NODE  (fl  , 6 ) = NODE  (M,7)  *2 
NODE  (fl,  8)  =NODE  (fl,  4)  ♦ NPR(NROW  + 1) 

NODE  (M  , 1 ) = NODE  (M,8)  <-1 
NODE  (M,  9)  =NODE(M,  8)  *2 
GO  TO  80 

73  NODE  (B,  1)  =NODES  (M) 

NODE  (B,B)=NODE  (M,1)-1 
NODE  (fl,  9)  = NODE (M , 1)  ♦ 1 

NODE  (M  ,2)  =NODE  (fl,  1)  -NPE  (NROW-1 ) 

NODE  (M,  4)  =NODE(M,  2)  - 1 
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NODE  |H,5)  =NODE  IN,  2)  ♦ 1 

NODE  (N,3|  =NODE  <N,2)  -NPB(NROW-2) 

NODE  (N,  7)  =NODE (H , 3)  - 1 

NODE  6)  =NODE  (H,3)  *1 

GO  TO  80 

74  NOrZ  |N, 5) =RODES  |H) 

NODE (N,  2)=NODE(H,  5)  - 1 
NODE  |H,4)=NODE  (H,5)  -2 
NODE(N,6)=NODE(H,  5|  -NPR  (N ROB) 
NODE  (H,3) =NODE  |N,6) -1 

NODE  (H,  7)  =NODE|N  , 6)  - 2 

NODE  (H ,9) =NODE (N,5) ♦ NPB (NROW+1 ) 

NODE  (N,  1)  =NODE(N,  91  - 1 

NODE  |H, 8) =NODE  |N,9) -2 

GO  TO  80 

75  NODE  |H, 2) =NODES (H) 

NODE  (N,  4)  =NODE ( H , 2)  -1 
NODE  <N,5) = NODE  |H,2) *1 

NODE  |N,  3)  =NODE|H,  2)  -NPR  (NFOW) 

NODE  |H, 7) = NODE  (H,3) -1 

NODE  |H,  6)  =NODE  |H,  3)  +1 

NODE  (N, 1 ) =NODE  |N,2)  ♦ NPR (NFOW ♦ 1 ) 

NODE  (H,  8)  =NODE  (H  , 1)  - 1 

NODE  (H  , 9)  =NODE  ( H,  1)  ♦ 1 

GO  TO  80 

76  NODE(H,  7)  =NODES(H) 

NODE  |H,3)=NODE  (H,7) *1 
NODE|H,6)=NODE(N,  7)  ♦ 2 

NODE  |N,4) =NODE  (H,7) ♦ NPR  |NROW) 

NODE  IN,  2)  =NODE|H,  4)  +1 

NODE  (H,5) = NODE  (H,4) +2 

NODE  (H,  8)  "NODE  (N,  4)  ♦ NPF|NROW  + 1) 

NODE  (H,  1)  =NODE  (N,8)  +1 

NODE  (N,  9)  =NODE(H,  8)  ♦ 2 

GO  TO  80 

77  NODE(N,8)=NODES  |H) 

NODE  |H,  l)=NODE  (N,8)  *1 
NODE  IN,  9>  =NODE  (N,  8)  *2 

NODE  |N,  4)  =NODE  (N, 8) - NPB  (N BOW-1 ) 

NODE  (H,  2)  =NODE(N,  4)  +1 

NODE  (H, 5) =NODE  (N,4)  *2 

NODE  (N,  7)  =NODE|N,  4)  -NPR  (NHOW-2) 

NODE  IN, 3) =N0DE  (H,7)  +1 

NODE  (M, 6)  =NODE(N,  7)  *2 

GO  TO  80 

78  NODE  |H,  6)  = NODES(N) 

NODE  (H,3) =NODE  (N,6) -1 
NODE  (N,7)  =NODE|N,  6)  -2 

NODE  |N, 5) = NODE  (N , 6) ♦ N PF  | N ROB ♦ 1 ) 

NODE  |N,  2)  =NODE|H,  5)  - 1 

NODE  (N,4)=NODE  (N,5)  -2 

NODE  (H,  9)  = NODE(N,  5)  ♦ NPR(NROW*2) 

NODE  (H, 1) =NODE  |H,9) -1 

NODE  (N,  8)  =NODE|N  , 9)  - 2 
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GO  TO  80 

79  NODE(d,9)  = NODES(H) 

NODE  ((1,1)  = NODE  ((1,9)  -1 
NODE  (H,  8)  = NODE(d,9)  -2 
NODE  ((1,5)  =NODE  ((1,9)  -NPB  (NEOW) 

NODE  (M,  2)  =NODE ( d,  5)  - 1 
NODE  ((1,4)  =NODE  ((1,5)  -2 
NODE  (H,  6)  = NODE  (II,  5)  -NPR(NROW-I) 

NODE  (d  , 3 ) =NODE  ((1,6)  -1 
NODE  ( 8,  7)  =NODE(H,  6)  - 2 
GO  TO  80 

600  GO  TO(8  1,82,83,  84,85,  86,  87,88,89)  ,IEL 

81  NODE  (M,3) =NODES(H) 

NODE  (N,  7 ) =NO  DE  (M,  3)  - 1 
NODE  (d,  6)  =NODE  (d  , 3)  ♦ 1 

NODE  (d  , 2) =NODE  (M,3)  +NPP  (NEON) 

NODE  (d,  4)  = NO  DE (d , 2)  - 1 
NODE  (d,5)  = NODE  (d,2)  *1 
NODE  (d,  1)  = NODE  (d,  2)  «-NPR(NROH  + 1) 

NODE  (d  , 6) = NODE  (d, 1) -1 
NODE  (d,  9)  =NODE((1,  1)  *1 
GO  TO  80 

82  NODE  (d,  4)  =NODES  (N) 

NODE  (11,2)  = NODE  (d,4)  *1 
NODE  (d,  5)  =NODE(d,  4)  *2 

NODE  ((1,7)  =NODE  (M,  4)  - NPB  ( N BOH -1 ) 

NODE  (d , 3)  =NODE  (d,  7)  *1 
NODE  (d , 6 ) = NODE  (d,7) +2 
NODE  (d,  8)  =NODE  (d  , 4)  *NPR (NROH) 

NODE  (M,  1 ) = NODE  (d,  8)  *1 
NODE  (d,  9)  =NODE(d,  8)  *2 
GO  TO  80 

83  NODE  (d,  1)  =NODES  (d  ) 

NODE  ( d , 8 ) =NODE  (d, 1)  -1 
NODE  (8,9)  = NODE  ( 8 , 1)  *1 

NODE  (8,2) =NODE (H,1) -NPP  (NFOH-1) 

NODE  (d,  4)  = N ODE  ( H , 2)  - 1 
NODE  (8,5) =NODE  (d,2) *1 
NODE  (H,  3)  = NODE(8,  2)  - NPR  (NPOH-2) 

NODE  (H , 7 ) = NODE  (M,3) -1 
NODE  (d,  6)  =NODE  (d,  3)  ♦ 1 
GO  TO  80 

84  NODE  (d,  5)  =NODES  (d) 

NODE  (8, 2) = NODE  (d ,5) -1 
NODE  (d,  4)  = NO  DE  ( 8 , 5)  - 2 

NODE  (d, 6)  = NODE  (d,5)-NPB(NFOH-1) 

NODE  (d,  3)  =NODE(d,  6)  - 1 
NODE  (d,7) = NODE  (d,6) -2 
NODE  (d,  9)  =NODE(8,  5)  ♦NPR(NROW) 

NODE  (11,1)  = NODE  (d,  9)  -1 
NODE  (d,  8)  =NODE  (d,  9)  - 2 
GO  TO  80 

85  NODE  (d,  2)  = NODES  (d) 

NODE  (d  , 4 ) =NODE  (d,2)  -1 
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NODE  (8,  5)  = NODE  (8,  2)  *1 

NODE  (8.  3)  = NODE  (8 , 2)  - NPR  ( N RO  W-  1 ) 

NODE  (8,7)  =NODE  (8,3) - 1 

NODE  (8,  6)  = NO  DE (8 , 3)  *1 

NODE  (8,1)=NODE  (8,2)  ♦ NPR  ( NEON) 

NODE  (8,  8)  = NODE ( 8 , 1)  - 1 

NODE  (8,9) = NODE  (8,1) +1 

GO  TO  80 

86  NODE  (8,7) =NODES  (8) 

NODE  (8 , 3)  = NODE ( 8 , 7)  ♦ 1 
NODE  (M , 6 ) = NODE  (8,7) *2 

NODE  (8,  4)  =NODE(8,  7)  ♦ NPR(NROW) 

NODE  (8,2) = NODE  (8,4) ♦ 1 

NODE  (8,  5)  = NODE  (8,  4)  ♦ 2 

NODE  (8,8)  = NODE  (8, 4)  ♦NPR(NROW*1) 

NODE  (8  , 1 ) = NODE  ( 8 , 8)  *1 

NODE  (8,9)  = NODE  ( 8 , 8)  4-2 

GO  TO  80 

87  NODE  (8,  8)  =NODES  (8) 

NODE  (8 , 1 ) = NODE  (8,8)  *1 
NODE  (8,0)  = NODE  ( 8 , 8)  ♦ 2 

NODE  (8,4) = NODE  (8,8)  -NPR  (NROW-1 ) 

NODE  (8,  2)  = NO  DE ( 8 , 4)  M 

NODE  (8,5) = NODE  (8,4)  42 

NODE  (8,  7)  = NODE  (8,  4)  - NPR  (N  ROW-2) 

NODE  (8,3) = NODE  (8,7)  *1 

NODE  (8,  6)  = N0DE(8,  7)  +2 

GO  TO  80 

88  NODE  (M,  6)  =NODES  (8) 

NODE  (8,3)  = NODE  (8,6) -1 
NODE  (8,  7)  =NODE  (8  , 6)  - 2 

NODE  (8,5) =N ODE  (8,6)  ♦ N P P (NFOW) 

NODE  (8,  2)  = NO  DE ( 8 , 5)  - 1 

NODE  (8,4) = NODE  (8,5) -2 

NODE  (8,  9)  =NODE(8,  5)  *NPR(NROW*1) 

NODE  (8,1)  = NODE  (8,9)  -1 

NODE  (8,  8)  = NODE  (8, 9)  - 2 

GO  TO  80 

89  NODE  (8, 9)  =NODES (8) 

NODE  (8,1)=  NODE  (8,9)  -1 
NODE  (8,8)  = NO  DE  ( 8 , 9)  - 2 

NODE  (8,5)  = NODE  (8,9)  -NFP(NPOW-I) 

NODE  (8,  2)  = NODE(8,  5)  - 1 

NODE  (8,4)  = NODE  (8,5)  -2 

NODE  (8,6)  = NODE(8,  5)  - NPR  (N  ROW-2) 

NODE  (8,3) = NODE  (8,6) -1 

NODE  (8,  7)  =NODE  (8  , 6)  - 2 

GO  TO  80 

80  IF  (NODES  (8)  . EO.  NS U 8)  GO  TO  700 
GO  TO  60 
700  N ROW  = N ROW ♦ 1 

IF  ( NROW  .GT.  NROWS)  GC  TC  60 
NSIIB=NSU8*NPR(NP0W) 

60  CONTINUE 
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SUDROIJTI  NE  IMCOEF  ( NC2 ,1  PA3m  ,XC,  YC,H0,  CONS  1,  CONS  2,  X 0,  Y 0,  N FLAT) 
DIMENSION  PA2  <12,  12)  ,PA3  (12, 12,  12) 

DIMENSION  PA2T  ( 12,  12)  ,PA  3T(  12,  12, 12)  ,b  (6,9)  ,CA2  (27 ,27)  ,ELN  (6  ,6) 
DIMENSION  CK  (27  ,27)  , DC  M27 , 2 7)  , F F ( 27) 

CCMNCN  /P11/  OK  , COK  , P E,  8,  C"A  2 

COMMON  /P11/  PA2 , F A3 

COMMON  /PM/  ELN,  AR  EA  , R 

COMMON  /Pi 6/  PA2T  ,P A3T 

DO  20  1=1,  12 

DO  20  J=1  ,12 

PA2T  (I, J)  =PA2(I, J) 

DO  20  K = 1 ,12 

20  PA3T(I,J,K) =PA3(I,J,K) 

WX=BO*CONS1 *COS  (CON SI  ♦ (XC-XO) ) *SIN  (CONS  2*(Y C-YO)  ) 

WY=BO*CONS2*SIN  (CONS  1*  (XC-XO)  ) *COS  (CO  NS  2*  ( YC-  YO)  ) 

PA2T  (2,  4)  =-  (ELN  ( 1,2)  *B  Y + ELN  ( 1, 3)  * W X)  /R  * NFLAT*  PA2  (2 ,4) 

PA2T  (2,8)  =ELN(1  ,1)  *WX*ELN(1 ,3)  *BY*PA2  (2,8) 

PA2T  (2, 9)  =ELN  (1 ,2  )*  BY  *ELN  (1  , 3) *BX*PA2  (2,9) 

PA  2T  (3,  4)  =BX*(-ELN(  3,  3)  /R  *EL  N (3,fc)  / (2.  * R*R)  ) * NFL  AT* 

1WY*  (-ELN  (2,3)/R*ELN  (2 ,6)  / (2.  *R*R)  ) *NFL  AT  *PA2  ( 3,4) 

P A2T (3,  8)  = WY*  (ELN  <3, 3) -ELN  (3,6) / <2.*R) * N FLAT)  ♦ 

1 NX*  (-ELN  ( 1, 6)  /(  2.  *R)  * NFL AT* ELN  (1,  3)  ) *PA2  (3,8) 

PA2T  (3,9)  = WX*  (ELN  (3  ,3)  -ELN  (3  ,6  ) / (2.  *R)  * NFL  AT)  * 

1WY*  (-ELN  (2,  6)/ (2.  *P)  *NFLAT*ELN  (2,3) ) *PA2  (3,9) 

PA2T  (4  ,4)  = (ELN  (3 ,3)  * W X *B  X *2  . *EL  N (2 , 3)  *W  X *WY  * ELN  ( 2,  2 ) * WY*BY  ) / (P  *R  ) 

1 *NFL  AT*P  A2  (4,  4) 

PA2T  (4,5)  =-  NX* (FT  N(  3,  3)  /R*  3.  *ELN  (3,6)  /(2.*R*R))*NFLAT- 
1BY*(ELN(2,3)/R*3.*ELN  (2,b)/(2»*R*F))*NFLAT*PA2(4,5) 

PA2T  (4,6)  =-MX*(ELN(3,  5)  / (R  *R ) ♦ ELN  ( 2,  3)  /R)  *NFL  AT- 
1 W Y*  (ELN  (2,2)  /R+ELN  (2,5)  / (R*R)  ) *N FL  AT*P  A 2 (4, 6 ) 

P A2T  (4,7)=-  (FLN  (2,2)*BY*ELN  (2,3}*BX)/(R*R)  *NFLAT*PA2(4,7) 

PA2T  (4,  8)  =-  (ELN  ( 1, 3)  * W X*  B X/R  ♦ (ELN  (3,  3)  /R*EL  N (1  ,2  ) /R ) * BX*  BY* 

1 ELN  (2,3)  * W Y*  W Y/R)  * NF  T AT*  P A2  (4 , 8 ) 

PA2T  (4,  9)  =-  (ELN  (3,  3)  ♦ WX*KX*2.*ELN  (2,3)  *WX*WY*ELN  (2  ,2)  *WY*WY)  /P 
1*NFLAT*PA2  (4  ,9) 

PA2T  (4,  10)=  (ELN  (3,4)  * MX*  ELN  (2 , 4 ) * W Y) /R  ♦ NFL  AT*  PA2  ( 4,  10) 

PA2T  (4,  1 1)  = 2.  *(ELN(  3,  6)  ♦ W X*  ELN  ( 2 , 6)  *W  Y)  /P*NFLAT*  PA2  (4 ,1  1 ) 

PA2T  (4,12)  = (ELN  (3  ,5)  *WX*ELN  (2,5)  *KY)  / R * NFL  AT  *P  A2  (4,  12) 

PA2T  (5,  8)  =BX*(ELN  (1,  3)  *1.  5*  ELN  ( 1 , 6) /R  ♦ N FLAT)  ♦ BY*  (EL  N (3 , 3)  *1.5* 
1ELN  (3,6) /R*NFLAT)  *PA2(5,8) 

PA2T  (5,9)  = BX*  (ELN  (3  , 3 ) ♦ 1 . 5* E L N (3,6)  /R*  N FL  AT)  ♦ BY*  (ELN  ( 2,  3)  *1.5* 

1 EL  N ( 2,  6)  / R*NFL  AT)  *PA2(5,9) 

PA2T  (6,8)  =WY*  (ELN  (2  ,3  ) ♦ ELN  (3  ,5  ) / R *NPL  AT ) *BX*  (ELN  (1,  2)* 

1 ELN  (1,5)/R*NFLAT)  *PA2  (6,8) 

PA2T  (6, 9)  =BX*(ELN  (2,  3)  *ELN(  3,5)  /F*NFL  AT)  *WY*  ( ELN  (2  ,2)  * 

1 ELN (2,5) /B* NFL AT) *PA2  (6,9) 

PA2T  (7,8)  = (WY*ELN  (2,  3)  *WX*ELN(  1, 2)  ) /R  * N FLAT*  P A2  (7,8) 

PA2T  (7,9)  =(  BY*  FLN  (2  ,2)  *BX  *ELN  (2,3)  ) / P*NFL  AT*P  A2  (7,9) 

PA2T  (8,  8)=WX*BX*ELN  (1,1)  ♦ BY*  BY*  ELN  (3,  3)  *BX  *B  Y *EL  N ( 1 , 3)  *2.  *P  A 2 ( P,  8) 
PA2T  (8,  9)  =BX*BX*FLN  (1,3)  *BY*BY*ELN(2,3)*BX*BY*(  ELN  (3,1)  ♦ 

1ELN  (1,2)  ) ♦ P A2  (8,9) 

PA2T  (8,  10)  =-BX  * EL  N ( 1 , 4)  - B Y*  E LN  ( 3 , 4)  *PA  2 (8 , 1 0) 

PA2T  (8,1  1)  =-2.  *(WX*ELN(1  ,6)  ♦ B Y * ELN  (3, 6 ) ) *PA2  (8,  1 1) 
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PA2T  (8, 12)  =-WX*EI  N(1  ,5)  -WY*FLN  (3  ,5)  ♦?  A2  (8,  12) 

P A2T  (9,  0)  =WX*WX*  ELN  (3,  3)  ♦ WY*  UY*ELN  (2,  2)  ♦ WX*V  Y*ELN  (2, 3)  *2.  +PA2  (9,  9) 
PA  27 (9,  10)  =-WX  * E L N ( 3,  4)  - U Y *ELN  ( 2 , 4 ) ♦?  A2  (4,10) 

PA2T  (4, 1 1)  =-2.*  (VX*  El  N (3,b)  ♦WY*ELN  (2,  fa)  ) *PA2(  4,  1 1) 

FA2T  (4,  12)  =-WX  * EL  N ( .3,  5)  - U Y*  E LN  ( 2 , 5)  *P  A2  (9 , 1 2) 

DO  10  1=1,11 
J L=  I ♦ 1 

DO  10  J = J L , 12 
10  PA2T  (J,  I)  =P  A2T  < I,  J) 

CALL  ATP  A (PA2T,P,CA2) 

WPITF  (NC?)  CA  2 

PA3T(H,8,8)=ELN(1,1)*WX  + ELN(1,3)*WY  + ?A3(8,9,8) 

PA3T  (5,5,8)  =WX*  (FIN  (1  ,1)  - ELN  (1, 2)  )/12.  + WY*  (ELN  (1  ,3) -ELN  (2,  3)  )/12. 
1+PA3  (5,5,8) 

PA3T(3,5,8)  =WX*(-ELN(  1,  1)  ♦ELN(  1,2)  ) /I  2 . ♦ W Y*  (-  ELN  (1  , 3)  ♦ ELN  (2  , 3)  ) / 

1 12.*PA3 (3,5  ,8) 

PA3T  (3,  3,  8)  =UX*  (ELN  ( 1,  1)  - ELN  (1 ,2) ) /12.M4Y*  (ELN  (1  ,3)  -ELN  (2, 3)  )/ 12. 
UPA  3 (3,3,8) 

P A3T  (8,  9, 9)  =WX*  (ELN  (1,2)  ♦ 2.*ELN  (3,  3) ) /3  . ♦ WY  *ELN  ( 2,  3)  ♦ ? A 3 ( 8,  4,  9) 
PA3T  (4,  8,  9)  =yx*(-ELN  ( 1,  2)  - 2.  *ELN  (3, 3)  ) / (3.  *P)  *NP  LAT- 
1EI.N  (2,3)  * VY/L*  NFL  AT*  F A3  (4 ,8,9) 

P A3T  (4, 4, 8)  = WX  * (ELN  ( 1,  2)  ♦2.*ELN  (3, 3)  ) / (3.*R*R)  ♦NFL AT* 

1ELN  (2,3)  *WY/(R*R)  ♦NFI  AT  + PA3  (4,4,8) 

PA3T  (4,  8,  8)  =-WY*  (FLN  (1,2)  *2.*ELN  (3,  3)  ) / (3.  *R)  *NFLAT- 
1VX+FLN  ( 1,  3)  /R*NFL  AT  + P A 3 (4, 8,  8) 

PA3T  (4 ,5,5)  =WX*  (-EI.N  (1  ,3)  *ELN  (2,3)  ) / ( 12.  *R)  *N  FLATMJY*  (-ELN  (1, 2)» 

1 ELN  (2,  2)  ) /(  12. *R)  *N  FL  A1*PA3  (4, 5,5) 

PA3T  (3,4,5)  = WY*  (ELN  ( 1,  2)  - ELN  (2,2)  ) / (1  2 . *R)  *N  FLAT  *VX*  (ELN  (1 ,3)- 
1 ELN (2,3) ) / ( 1 2 - * B) *NFL AT»PA3  (3,4,5) 

PA3T  (3,  3,  4)  = WY  * (-FLN  ( 1,2)  +ELN  (2, 2)  ) /( 1 2 . *R)  *N  FLAT*  WX  * (-ELN  (1  ,3)  ♦ 
1ELN (2,3) ) /(12. *R)  *KFLAT+PA3 (3,3,4) 

PA3T  (8,  8,  9)  =HY*  (ELN  (1,2)  ♦2.*ELN  (3,  3)  ) /3.»WX*ELN(  1,  3)  ♦ PA  3 ( 8,  8,  9) 
PA3T  (5,  5,  9)  =WY*  (ELN  ( 1 , 2)  - ELN  ( 2 , 2)  ) /1 2 . ♦ H X*  (EL  N (1  , 3 ) - ELN  (2 , 3 ) ) / 12  . 
UPA3  (5,5,9) 

PA3T  (3,  5,  9)  =WY*  (-  ELN  ( 1,  2)  ♦ELN  (2,2)  ) /12.*KX*  (- ELN  (1  , 3)  ♦ 

1ELN(2,3))  /12.  + PA3  (3  ,5,9) 

PA3T  (3,3,9)  = WY*  (ELN  (1,2)  -ELN  (2,2))  /12.+WX*  (FI.N  (1,3)  - 
1ELN  (2,  3)  ) / 1 2.*  PA  3 ( 3,  3,9) 

PA3T  (4,9,9)  =-E  LN  (2,2)  ♦WY/R*NFLAT-ELN(2,  3)  *WX/ R*N  FI.  AT  +P  A 3 ( 4,  9,9) 

PA  IT  (4,  4,  9)  =BX*  EL  N(  2,  3)  / (R*P)*NFLAT*WY*ELN(2  ,2)  / (R*P)  *NFLAT 
1*  PA  3 (4,4,9) 

PA3T  (4,  4,4)  = (-ELN  (2, 2 ) * W Y- EL  N (2,3)  *WX ) / (9**3)  *NFLAT  + PA3(4,  4,  4) 

PA3T  (9,9,9)  =ELN(2,2)  *WY^ELN(2,3)  *WX+PA3  (9,9,9) 

DO  30  1=1,12 
DO  30  J*  1,  12 
DO  30  K = 1 ,12 
PA3T  (J,  I,  K)  =PA  3T(  I,  J,K) 

PA3T  (I  , K , J)  = PA3T  ( I , J , K) 

30  CONTINUE 

WRITE  (IPA3T)  PA3T 

RETURN 

END 

SUBROUT INF  HULTOC (A, B,C,D,0,NAXA,NAV,NECB,NAR,LBAND,NBLOCK, 


n n n n n 


INI, NSTIF, KSTIF ,NC,K EX) 

DIMENSION  A (NAV)  ,E(NAV)  ,C  (NECE)  , D(NAV)  , Q(NAR)  ,MAXA(MI) 

THIS  PROGRAM  MULTIPLIES  (A)*(X)={C).  THE  VECTOR  (X)  IS 
ASSUMED  TO  BE  CONTAINED  IN  MFMORY.  THE  VECTOR  <C ) AND  THE 
SQUARE  MATRIX  (A)  ARE  ASSUMED  TO  BE  STORED  ON  A TAPE  IN  BLOCKS. 
THIS  PROGRAM  IS  RESTRICTED  TC  VALUES  OF  NEQB  GRATER  THAN  OP 
EQUAL  TO  LB  AND. 

DO  73  I*  1,  NEQB 
73  C (I)  =0. 

LB1  = LBAND»1 

REWIND  NSTIF 

REWIND  KSTIF 

REWIND  NC 

READ  (NSTIF)  B 

IF  (KE  X .NE.  1)  GC  TC  50 

READ  (KSTIF)  D 

GO  TO  51 

50  READ  (KSTIF)  D.HAXA 

PROCESS  THE  FIRS  ELOCK  (NEQB.  GE.  LBAND) 

51  N = 1 

DO  70  1=1, LBAND 
II=I 

LL=  I I-N  EQ  B*  (N-  1) 

NN=NEQB*LBAND*LL 
DO  7 1 J=  1,  I 
II=J 

JJ=I-J  *1 
KK=II-NEQB*  (N-1) 

NH=KK  ♦NEQB*  ( J J- 1 ) 

71  C (LL)  =C  (LL)  + B (MM)  *Q  (0) 

JL  1=  I*  1 

J R =1 ♦LBAND- 1 
DO  72  J=JL  1 , JR 
II=I 

JJ=J-I*1 
KK=II-NEQB*  (N-1) 

MM  = KK*NEQB*(JJ-1) 

72  C(LL)=C  (LL)  ♦ B (MM)  *Q  (J) 

70  D(NN)  = B(NN)-C(LL) 

IF  (NEQB  .EQ.  LBAND)  GC  TO  100 
DO  80  I=LB1 , NEQB 
II=I 

LL=II-NEQB*  (N-1  ) 

NN  = NEOB*LEAND*LL 
JL=I- LBAND* 1 
DO  81  J=JL,  I 
II  -J 

JJ  = I-J*  1 
KK=II-NEQB* (N-1 ) 

MM  = KK*NEOB*(JJ-  1) 

81  C (LL)  =C  (LL)  ♦ B (MM)  +Q  (J) 

J L 1=  I ♦ 1 
JR=I»LBAND-1 
DO  82  J=JL  1, JR 


II=I 

JJ=J-I*  1 

KK=II-NEQB*  (N-1  ) 

Hf1=KK  *N  EQB*  ( J J—  1) 

82  C (LL)  =C  (LL)  + B(f1H)  *Q  (J) 

80  D(NN)  = B(NN)-C(LL) 

100  IF  (KEX  .NE.  1)  GO  TO  55 
WRITE  (NC)  D 
GO  TO  56 

55  WRITE  (NC)  D,NAXA 

56  DO  60  N=2,N  BLOCK 
DO  61  1=1 , NEQB 

61  C(I)=0. 

I R = NEQB*L  B1 
DO  69  1=1, IR 
69  A (I) =B  (I) 

REAL  (NSTIF)  B 
IF  (KEX  .NE.  1)  GO  TO  52 
READ  (KSTIF)  D 
GO  TO  53 

52  READ  (KSTIF)  D,  H A XA 

53  IL=NEQB* (N-1 ) ♦ 1 

IR=N  EQB*  (N- 1)  ♦LBAND-1 
DO  62  1=1 L, I R 
11=  I 

LL=II-NEQB*  (N-1) 
nn=neqb*lban  D*LL 
JL=I-  LB  A ND*  1 
JR=NEQB*  (N-  1) 

DO  63  J=JL , JR 
II=J 

JJ=I- J*1 

KK=II-NEQB*(N-2) 

MM  = KK*  NEQB*  (JJ-1) 

63  C(LL)=C(LL)  ♦A(NN) *Q (J) 
JL= JR* 1 

J R=  I 

DO  64  J=JL, JR 
II=J 

JJ=I- J* 1 

KK= II-N E0B*(N- 1) 
flM  = KK*  NEQB*  (JJ-1) 

64  C(LL)  =C(LL)  *B(MB)  *0  (J) 

JL=JR* 1 
JR=I*LBAND-1 
DO  65  J = JL , JR 
II=I 

JJ=J-I*1 

KK=  II-N  EQB*  (N-  1) 

MN=KK* NEQB*  (JJ-1 ) 

65  C(LL)=C(LL)  *B(P1M)  *0  (J) 

62  D (NN) =B  (NN) -C(LI) 

THIS  COMPLETES  THE  FIRST 
IL=NEQB*  (N-  1)  +I.BAND 


ROW-SU  fi 
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I R=NEQB*N 
DO  66  1= IL  , IR 
II  = I 

LL=II-NEQB*  (N-  1) 

NN=NEQB*LBAND* IL 

JL=I-LEAND»1 

JR=I 

DO  67  J=JL, JR 
II=J 

JJ=I-J*1 
KK=II-NEQB*  (N-1 ) 

MM=KK ♦N  EQ  B*  ( J J—  1) 

67  C (LL) =C  (LL)*B(MM)  *Q  (J) 

JL=J  R*  1 
JR=I*LBAND-1 
DO  68  J=JL,JR 
II  = I 

JJ=J-I*1 

KK  = II-NE0B*  ( N — 1 ) 

MM=KK  *N  EQB*  (JJ-1) 

68  C (LL) =C  (LL)  ♦ B (MM)  *Q  (J) 

66  D (NN)  =B  (NN) -C  (LL) 

THIS  COMPLETES  THE  N TH  BLOCK. 

IF  (KEX  .NE.  1 ) GO  TO  54 
WRITE  (NC)  D 
GO  TO  60 

54  WRITE  (NC)  D.NAXA 
60  CONTINUE 
RETURN 
END 

SUBROUTINE  BCS  (A,  B,  M A XA  , N A V , NEQB  , LBAND  , MI  , KE  X , NBLOCK,  NC,  ND,  MAX  B) 
DIMENSION  A (N  A V)  , B(  N A V)  ,ID(400)  ,MAXA(MI),MAXB(MI),NBC(9) 

COMMON  /P 17/  ID, IK. NBC 
LB  1=LBAND*  1 
N = 1 

IF  (KEX  . NE.  1)  GO  TO  50 
READ  (NC)  B 
GO  TO  51 

50  READ  (NC)  B.MAXB 

51  CO  10  J=1, IK 

IF  (ID  (J)  .GT.  LBAND  .OR.  ID(J)  . LE.  0)  GO  TO  10 
11= ID  (J) 

KK=II-NEQB*  (N-1) 

B (KK)  = 1. 

DO  11  J J=  2,  LBA  ND 

MM  = KK>NE0B*  (JJ-1 ) 

E (MM) =0. 

N N=T 1*1  — J J 

IF  (NN  .LE.  0)  GO  TO  12 
NN  = NN*  (JJ-1)  ♦NEQB 
E (NN)  =0. 

12  MM=KK*NEQB*LBAND 
B (MM)  =0. 

11  CONTINUE 


10  CONTINUE 
IF  (NEQB 


IF  (NEQB  .EQ.  LBAND)  GC  TO  100 
DO  20  J= 1# IK 

IF  (ID  (J)  .GT.  NFQB  .OB.  ID(J)  . LE. 
1 1=  I D(  J) 

KK=II-NEQB*  (N-11 
B (KK)  = 1. 

DO  21  JJ=2, LBAND 

HH=KK ♦ N EQB*  (JO-1 ) 

N N=  1 1 ♦ (JJ-  1)  • ( NEQB—  1) 

b <nn ) =0. 

21  B (NN) =0. 

HH=KK*  NEQB*  LBAND 
B (MM) =0. 

20  CONTINUE 
100  DO  60  N = 2,  N BLOCK 
DO  69  1=1 , NAY 
69  A ( I)  - B ( I) 

IF  (KEX  . NE.  1 ) GO  TO  52 
BEAD  (NC)  B 
GO  TO  53 

52  DO  BO  1=1,  HI 

80  HAXA  (I ) =H  A X B (I ) 

READ  (NC)  B,  N AX  B 

53  DO  1 K= 1 , 1 K 

IF  ( ID  (K)  .GT.  NE0B*N  .OR.  ID(K)  .L 
KK=ID ( K)  -NEQB*  ( N— 1 ) 

IF  (KK  .GE.  LBAND)  GO  TO  2 
KK  1=KK+  1 
DO  4 JJ=1 , KK 
1= I D (K)  *1-JJ 
II=I-NEQB*  (N-1) 

HH= II*N  EQB*  (JJ-  1) 

4 B (HH) =0. 

DO  5 JJ  =KK 1 , LBAND 
I = ID  (K)  «■  1-JJ 
II =I-NEQB*  (N-2 ) 

HH= II*N  EQ  B*  (JJ-  1) 

5 A (HM)=0. 

DO  3 JJ  =2  , L B1 
HM=KK*NEQB*(JJ-  1) 

3 B (HH)  =0. 

B(KK)  = 1. 

GO  TO  1 

2 DO  6 JJ  = 2, LBAND 

HH=KK*  NEQB*  (JJ-1  ) 

MN=  ID  (K  ) ♦ (JJ  - 1)  * (N  EQB-  1)  - NEQB*  (N-1) 
B (HH)  =0. 

B (NN)  =0. 

HH=KK*NEQB*LBAND 

6 B (HH)  =0. 

B(KK)=  1. 

1 CONTINUE 

IF  (KEX  .NE.  1)  GO  TO  54 


NFQB  .OB.  ID  (J) 


GO  TO  52 


LBAND) 


NEQB*  (N-1)  ) GG  TO  1 


I 


MBITS  (ND)  A 
GO  TO  60 

54  MBITS  (MD)  A,  MAX  A 
60  CONTINUE 

IF  (K EX  .NS.  1)  GO  TO  55 
MBITS  (ND)  B 
GO  TO  56 

55  MBITS  (ND)  B,NAXB 

56  CONTINUE 
BETUBN 
END 

SUBBOUTINE  ATBA  (A,B,C) 

DIMENSION  A ( 12,  12),B(6,9)  ,BB  (12,27)  ,C  (27,27) 

DO  1 0 NN= 1 ,3 
NEV  EN=NN- 1 
JR  = 3 

IF  (NN  . EQ.  1)  JB=6 

JK=6-6*NEVEN 

IF  (NN  . EO.  3)  JK  =3 

DO  1 K=1 , 9 

KK=K ♦ NEVEN 

DO  2 1=1,12 

BB (I, KK) =0. 0 

DO  2 J=1 , JR 

JJ=J*JK 

2 BB(I,KK)  =BB  (I,KK)  »A  (I  ,JJ)  *B(J,K) 

1 NEV  EN=N  EV  EN  *2 

10  CONTINUE 

DO  20  NN=  1, 3 
NE VEN=NN-1 
J B=  3 

IF  (NN  .EQ.  1)  JR=6 
JK=6— 6*N  EV  EN 
IF  (NN  .EQ.  3)  JK=3 
DO  4 1=1,9 
KK=I*NE VBN 
DO  3 K=KK, 27 
C (KK ,K) =0.0 
DO  3 J= 1, J R 
JJ=J*JK 

3 C (KK,  K)  =C  (KK,  K)  +B(J,I)  *BB(JJ,K) 

4 NE  VEN=NE  VEN*2 
20  CONTINUE 

DO  30  1=1 ,26 
IL= 1*1 

DO  30  J=TL ,27 
30  C (J,I)=C(I,J) 

RETURN 

END 

SUBROUTINE  SMALL  (Q,CC,SC,  NEC  E,  N BLOCK,  LEVEL,  IT  ER,  BIG,  NL,  NDIS,  NAP, 
1NUMNP) 

DIME  NSION  Q (NAR)  , CC  (NEQB)  ,SC  (N BLOCK) 

DO  7040  K=1,N BLOCK 

READ  (NL)  (CC (I) ,1=1 , NEQB) 
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7041 


7040 


7042 


7052 


7 05  J 


7051 

7050 


NBIG=1 

DO  7041  1=1, NEOB 

IF  ( (ADS  (CC  (I ) ) ) .(IT.  (ACS  (CC  INPIG) ))  ) NBIG=I 

11=  I ♦ (N  BLQCK-K ) *N  EOB 

0 III)  =0(ID  ♦CC(I) 

SC|K)=CC(NBIG) 

CONTINU  E 

N BIG=  1 

DO  7042  K = 1 , NBLOCK 

1 F ( AES  (SC(K)  ) .GT.  A BS  ( SC  ( N B IG)  ) ) NBI3  = K 
I L = (K-1)  *NE0B*1 

IR=K*NE0B 

WR  ITE  (NDI  S)  (OH)  ,1=11, IR) 

EIG=SC(NBIG) 

WRITE  (3,7052)  LEVEL, ITER 

FORMAT  (1  Hi  ,2X,»  LOAD  I EV  FL=  • , 15 , 5 X , • IT  E P AT  ION  NUMBERS, IS) 

WPITE  (3,7051) 

FORMAT  (1H0,2X  , 'NODAL  POINT  NO.  • ,4  X , • W - DIS  PL  ACEM  ENT  • , 4X  , 

1 *U-  DISPLACEMENT*  , 4X,  • V- DISPLACEMENT') 

DO  7050  K = 1 , NUMNP 

WRITE  (3,7051)  K,  Q<  3*K- 2)  ,0  ( 3*K-  1)  , 0 ( 3*  K) 

FORMAT  (1H0,2X,IB,9X,E1b.6,2X,Bl6.b,2X,E16.6) 

CONT  INU  E 

RETURN 

END 

SUBROUTINE  I BAND (NEL, LEAND) 

DIMENSION  NODE(  244,  9)  , ITYPE (244)  ,X  (240)  , Y (24 0)  , I BC  (244 , 3) 
DIMENSION  NODES  (244) 

COMMON  /PIS/  X,Y, NODE, ITYPE, IBC, NODES 
LARGE3  1 
DO  11  N= 1 , NEL 

L BIG=  I ABS  (NODE  (M,  7)  - NODE  (H,  9)  ) 

IF  (LBIG  .GT.  LARGE)  1AFGE=LFIG 
CONTINUE 

LBA  ND=3  * (LARGE* 1 ) 

RETURN 

END 

SUBROUTINE  SESOL  (A,  B,  N A XA  , NEO  , MA  , N V , N BLOCK,  NEQB,  N AV  , HI  , NST I F , 
1 NRED.NL,  NR,  K BLOCK,  NN  , K EX  , M AX  B,  DET) 

DIMENSION  A (NAV)  ,B  (NAV)  , MAX  A (MI)  , MAX  B(HI) 

DET=  1.0 

MH=  1 

MA2  =M A - 2 
IF  (MA2.  EQ.O)  H A 2=  1 
I NC=NEQB  - 1 
NW  A=NE0B*HA 
NTB=  (MA-2)  /NEOB  ♦ 1 
N EB  = NT  B*N  EOB 
NEBT=NEB  * NEOB 
NWV=NBOB*NV 
NWV  V=NEBT*  N V 


n o 


ni«nl 

N2*NR 

REWIND  NSTIF 
REWIND  NR  ED 
REWIND  N1 
REWIND  N 2 

C 

GO  TO  ( 710,721),  REX 
C MAIN  LOOP  OVER  AIL  BLOCKS 

7 10  DO  600  NJ*1,N  BLOCK 

IP  (NJ.NE.1)  GO  TO  10 
REAL  (NSTIE)  A 
IP  (NEQ.GT.  1)  GO  TO  100 

n axa  (i ) * i 

W RIT  E (NR  ED)  A,  N AX  A 
IP  (A  (1)  ) 1,174,3 
1 KK*  1 

WRITE  (3,1010)  KK ,A  (1 ) 

3 DO  5 1*1,  Nf 
5 A |Ul)  -A  (1  + L)/A  (1  ) 

K R*  1 ♦NV 

WRITE  (NL)  (A(KK)  ,KK*2,KR) 
RETURN 

10  IP  (NTB.E0.1)  GO  TO  100 
REWIND  N 1 
REWIND  N2 
REAL  (N 1)  A 

FIND  COLUMN  HEIGHTS 
100  KO-1 

KN*HIN0  (N  A, N EQB) 

N AXA  (1 ) * 1 
DO  110  N*2,HI 
IF  (N-HA)  120,120,130 
120  KU*KU  ♦ NEOB 
KK*KU 

HH®  NINO (N, KH) 

GO  TO  140 
130  KU*KU  ♦ 1 
KK*KU 

IF  (N-NEOB)  140,  140,  136 
136  NH*HH  - 1 
140  DO  160  K*1,HN 

IF  (A  (KK)  ) 110,160,110 
160  KK  = KK  - INC 

110  HA XA  (N)  *KK 

IF  (A  (1 ) ) 172,174,176 
174  KK*  (NJ-1)  *NE0B  ♦ 1 

IF  (KK.GT.  NEQ)  GC  TC  690 
WRITE  (3,  1000)  KK 
STOP 

172  KK*  (NJ-1) *NEQB  ♦ 1 

* 
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conn  n o no 


WRIT!  (3,  1010)  KK,A(1) 


rACTORUE  LEADING  blOCK 
176  DO  200  N«2,NR0B 
NH-NAX  A f N) 

If  C N H - N ) 200,200,210 
210  KL«N  ♦ INC 
K«N 
D*0. 

DO  220  K K * KL, NH , I NC 
K*  K - 1 
C * A IKK)  /A  | K ) 
r*D  ♦ C*  A ( KK) 

220  A |KK)  *C 

A ( N ) * A (N)  - D 

IF  (A(N)  ) 222,  224,  230 

22**  KK*  (N.l-1)  *NEQD  ♦ H 

I)  (KK.GT.  NEO)  GO  TO  S 0 
WRITE  ( 3,  1000)  KK 
STOP 

222  KK  = ( N J - 1)  •NFQd  ♦ N 

WRITE  (3, 1010)  K K , A (N  ) 

23C  ICrNS0P 

CO  240  J*  1,  NA2 
HJ  = N A X A (N*  J)  - IC 
IF  (NU-N)  240,  240,  2PC 
280  KU=NI  NO  (N>1,NH) 

KN=N  ♦ IC 
C = 0. 

DO  300  KK  = K L,  K 0,  INC 
300  C*C  ♦ A (KK ) • A ( KK*I C) 

A (K  N)  = A ( K N)  - C 
240  IC=IC  ♦ NEOP 


200  CONTINUE 

CARRY  OVER  INTO  TP  A III NG  BLOCKS 
DO  400  N K*  1 , NTB 

IF  |(NK ♦NO ).GT.N BlOCK)  GO  TO  400 
NI  -N  1 

IF  ((NJ.  EO.  1)  .OR. (NK. EO. NTB))  NI*NSTIF 
READ  (NI)  8 
NL  = NK  *N  FO  P ♦ 1 
HR  *NIN0  ( (NK* 1 ) *NI0H, FI) 

I F (M  A.  FC.  1)  1l=NP 
HD  ~ NI  - HI. 

KL=NE0R  ♦ (NK- 1)  *N  FCB*N£0B 
N = 1 

C 

DO  S00  H = N L , H R 
N H=  H AX  A ( N) 


190 


u u 


Rl-KL  ♦ NBCH 
IF  (NH-KL)  505,510,  510 
510  R-NEOB 
D-0, 

DO  520  RR«RL,NH,INC 
OA(RR)/A(R) 

D-D  * C*A(KR) 

A (KK)  »C 
520  R-K  - 1 

P (N)  - B (N)  - D 
IP  (HD)  505  ,505,530 
530  IC-NEQB 

DO  540  J- 1 , HD 
HJ«HAXA(R*J)  - IC 
IP  (HJ-Rl)  540,550,550 
550  KU-HINO(NJ.NH) 

R N-N  ♦ IC 
C-0. 

DO  575  RR-RL, RO, IHC 
575  C»C  A(KK)  *A(RK  *IC) 
B(KN)-B(RN)  - C 
540  IOIC  ♦ NEOB 


505  HD-HD  ~ 1 

500  N-N  ♦ 1 

C 

IF  (NTB.  NE.  1)  GO  TO  560 
WRITE  (NEED)  A , H AX  A 
NN-NEOB 

IF  (MJ  .EO.  RBtOCR)  HR-  NN- (REICCK-  1)  *NKC» 

DO  5001  1 1-  1, HO 

5001  DET-DET*A  (II)  / ABS(A(II)) 

DO  570  1-1, WAV 
57 C A (I ) -B  (I ) 

GO  TO  600 

560  WRITE  (M2)  B 
C 

400  CONTINUE 
C 

H-N  1 
N 1-N2 
N2-H 

590  WRITE  (NRED)  A,  N AX  A 
C 

NN-NEOB 

IP  (NO  .EQ.  RBtOCR)  HN- NN- (R  ELOCR- 1)  *NEQP 
DO  5000  II-  1, HR 

5000  DET-DET*A  (II)/  ABS(A(II)) 

600  CONTINUE 

DBT-DBT*  ABS  (A  (HN) ) 

WRITE  (3,5111)  DET 

5111  PORHAT  (1HO,4X,  'DETERMINANT  CF  THE  COBPPICIENT  N AT  R IX  * , P 1 ft  . 6 ) 
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IF  ( KEX  .Rtf.  1 ) GO  *C  72C 
721  « «N 1 
N 1=  N 2 
N2«H 

720  REWIND  NSTIE 
FEWINO  N R ED 
RPW  IND  N 1 
REWIND  N2 
DO  60  NJ®  1,  N BLOCK 
IF (NO  .NE.  1)  GO  TO  61 
READ  (NRED)  A.NAXA 

61  IF  (NTB  .SO.  1)  GO  TO  62 
REWIND  N 1 

REWIND  N2 
PEAD(NI)  A 

62  DO  63  N=2,NEQB 
NH=H  AX  A (N) 

IFHNH-N)  .LE.  0)  GO  TO  63 

Kl=N*INC 

K=N*  NWA 

DO  64  L*1,NV 

KJ=K 

C-0. 

DO  65  KK  = KL#  NH ,1 NC 
KJ®  K J-  1 

65  C A (KK ) * A (KJ' 

A (K)  * A (K)  -C 
64  K = K*NEQB 
6 3 CONTINHE 

DO  66  NK  = 1 , NTB 

IF  ( ( NK  ♦NJ)  . GT.  N BLOCK)  GO  TO  66 
NI  *N  1 

I F ( ( NJ  . EO.  1)  .OP.  (NK  .EO.  NTB))  NI  =N  RED 

READ  (NI)  BfHAXB 

NL*NK*NEQBM 

NR® NINO  ( (NKO) *NECB, NI) 

IF  (NA  . EO.  D NL  = NR 

KL  = NE0B* (NK-1)  *NECB*NECB 

N=  1 

DO  67  N=NL,NR 
NH  =H AXA  (H) 

KL*KL»N  EQB 

IF  ( (NH- KL)  .IT.  0)  GO  TO  67 
KN=N»NW  A 

k*necb»nwa 

DO  68  L*  1, NV 

F J*K 

c*o. 

DO  69  KK=KL,NH#INC 
C*C*A(KK)  * A (K  J) 

69  KJ=KJ-1 

E (K  N)  ® B (K  N)  -C 
K N«K  N*  NEQB 
68  K = K »NEQB 
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r 

h 


r 


| 


67  N =N*  1 

I F (NT  E .NE.  t)  GO  TO  70 
WRITE  (NSTIF)  A,  MAX  A 
DO  71  1 = 1 , N A V 
71  A(I)=B(I) 

DO  999  1 = 1 ,HI 
999  NAXA(I)  = N AX  B ( I) 

GO  TO  60 
70  W RIT  E (N  2)  B 
66  CONTINUE 
H=N  1 
N 1 =N  2 
N2=H 

WRITE  (NSTIF)  A , H AX  A 
60  CONTINUE 

C VECTOR  BACKSUBSTITUTION 

DO  700  K=  1, NWVV 
700  B (K)  =0. 

REWIND  NL 

C 

DO  800  NJ=1,N  BLOCK 
BACKSPACE  NSTIF 
READ  (NSTIF)  A,  MAXA 
BACKSPACE  NSTIF 
K=NEBT 

DO  810  L=1 ,NV 
DO  820  1=  1,  NEB 
E (K) =B (K-NEOB) 

820  K=K  - 1 

8 1 C K=K  ♦ NEBT  ♦ NEB 

K N=0 
KK=NWA 
NDI F=N  EO  B 

IF  (NJ.EQ.1)  NDIF=NECE  - (NBLOCMNEQB  - NEQ) 
DO  855  L=1,NV 
DO  850  K= 1 , NDIF 
850  B(KN*K)  =A(KK»K)/A(K) 

KK=KK  ♦ NEQB 
855  K N=K N ♦ NEBT 

IF  (HA.EO. 1)  GO  TO  915 
ML=NE0B  ♦ 1 
KL=NEQB 

DO  860  M=HL,P1I 
K L = KL  ♦ NEQB 
KU=  H AX  A ( H) 

IF  (K(I-KL)  860,870,870 
870  K=  N EQB 

k n =m 

DO  880  L=  1 , N V 
K J = K 

DO  890  KK=KL, KU, INC 
B(KJ)=B(KJ)  - A (KK)  *B  (KK) 

890  KJ  = K.1  - 1 

Kf1  = KM  ♦ NEBT 


I 


880  K-K  ♦ NEBT 
860  CONTINUE 
N-NIQB 

00  910  I *2 , NEQB 
KL-N  ♦ INC 
KU-MAXA  (N) 

If  (KU-KL)  910,920,920 
920  K * N 

DO  910  L*  1,  NT 
K J*  K 

DO  940  KK -K  L, KU,  INC 
K J*KJ  - 1 

940  B(KJ)=B(KJ)  - A ( K K ) • B ( K ) 
910  K =K  ♦ NEBT 

910  N3  N - 1 


C 


915  KKr 0 
KN*0 

DO  950  L * 1 , N V 
DO  960  K*1 ,NEQB 
KK*KK  ♦ 1 

960  A (RE)  =B  ( K N*  K) 

950  K N=  K N ♦ NFBT 

C 

WRITE  (NL)  (A(K)  ,K=  1.NWV) 
800  CONTINUE 


C 

1000  FORMAT 
1 

2 

1010  FORMAT 
1 
2 


(//  46H  STOP  **•  ZERO  DIAGONAL  ENCOUNTERED  DURING, 

18H  EQUATION  SOLUTION,  / 

1 J X , 1 8H  EQUATICN  NUMBER  =,  16  ) 

(/  50  H WARNING  •**  NEGATIVE  DIAGONAL  FNCOU  NTERFD  DURING, 

18H  EQUATION  SOLUTION,  / 

13X.18H  EQUATION  NUMBER  =,  16,  5X,  7H  VALUE  =,  E20.8  ) 


C 


RETURN 

END 

SUBROUT INE  BCI D ( N EL , N FO , N BLOCK , NEQB, KBL OCR , NN ) 

DIMENSION  NODE  (24  4,9)  , IT  Y FE  (244 ) , X (24  0)  , Y (240)  , IBC  (24  4,  3) 
DIHENS  ION  ID  (400)  , NBC  (9)  , NODES  (244) 

COMMON  /P 1 5/  X, Y, NODE, ITYPF, IBC, NODES 

COMMON  /P 1 7/  I D , I K, NBC 

IK-0 

NBC  (1)  *3 

NBC  (2)  =4 

NBC  (3)  *1 

NPC  (4)  =5 

NBC  (5)  =2 

NBC  (6)  3 7 

NBC  (7)  =8 

N BC  ( 8)  -6 

NBC  (9)  *9 

DO  120  H3 1 , N EL 

IEL*ITYPE  (H) 

NP3N  EC(I  EL) 
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DO  121  1=1,3 

IP  (IBC (N, I)  .EQ.  0)  GO  TO  121 
IK*  IK* 1 

ID  (IK)  * 1 • NODE  ( H , N ti  *1-3 
121  CONTINUE 
120  CONTINUE 
I IK* IK 
SiN  = NEQ*  1 
I IK*  I IK  ♦ 1 
2 NN*NN- 1 
I IK* I IK  - 1 

IF  (ID  (II K)  .BQ.  NN)  GO  TO  2 
DO  1 NJ=1,N  BLOCK 

1 IP  (NN  .GT.  (NJ-1  )*NE0E  . AND.  NN.LE.  NJ*NEQB)  KBLOCK  = NJ 
PFTURN 
END 

SUBHOUTINE  ELPROP 
DIMENSION  ELN  (6  ,6  ) 

DIMENSION  0(  10,  3,  3)  , D(3,  3)  ,A  (3,  3)  ,B(3, 3)  ,H  (10) 

COMMON  /PI  4 / ELN, AREA, B 
C 

C KN=T0TAL  NUMBER  OF  LAYERS. 

C H{1>  , H ( 2)  , H(  3)  ARE  THE  DISTANCES  OF  THE  LAYERS  PROM 

C THE  REFERENCE  PLANE. 

PEAC  (1,10)  KN 

10  FORMAT  (IS) 

KL=K  N* 1 

READ  (1,11)  (H  (I)  ,1*1  ,KL) 

13  FORMAT  ( F 10. 0) 

WRITE  (3,14)  KN 

14  FORMAT  ( 1H1,2X,  'TOTAL  NUMBER  OF  LAYERS', 15) 

WRITE  (3,11) 

11  FORMAT  (1H0,SX,'LAY  EP  DISTANCES  FROM  THE  REFERENCE  SURFACE') 

W PITE  ( 3,  12) 

12  FORMAT  (1H0,2X ,' POSITIVE  FOR  LAYER  SURFACES  TOWARD  THE  CENTER 
1 OF  CURVATURE') 

WRITE  (3,16)  (H (I) , 1=1 ,KL) 

16  FORMAT  (SX,  P16.6) 

C El  IS  THE  MODULUS  OF  ELASTICITY  IN  THE  FIBER  DIRECTION. 

C E2  IS  THE  MODULUS  OF  ELASTICITY  IN  THE  DIRECTION  PERPENDICULAR 

C TO  THE  FIBER  DIRECTION. 

C ANU1  IS  THE  POISSON'S  RATIO  IN  THE  12  DIRECTION. 

C ANU2  IS  THE  POISSON'S  RATIO  IN  THE  21  DIRECTION. 

C G IS  THE  SHEAR  MODULUS. 

C TT  IS  THE  ORIENTATION  OF  THE  FIBER  WITH  RESPECT  TO  X-DIRECTION. 

WRITE  (3,17) 

17  PORK  AT  (1H0,5X,  • El'  , 15X,'  E2'  , 16X,'  NO  (1,2)  *,9X,'NU(2  ,1)  ',4X, 

1'G  (1  ,2)  ' ,9X,  'THETA') 

DO  101  N=2, KL 

READ  (1,20)  El,  F2,ANU1,ANU2,G,TT 
20  FORMAT  (6F10.0) 

WRITF  (3,15)  El,  E2,  AN  U 1 , A NU2  ,G  , TT 

15  FORMAT  (6F16.6) 

P 1=3 .1416 


- 
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Onno  n n n n noon  nonon 


TT=TT*PI/1B0. 

CC  =COS  ( TT) 

SS  = S IN  (TT) 

AA  = E 1/(  1.-ANU1*ANU2) 

P E=  AN  U2  * A A 

EE=E2/<  1.  - ANU1*ANU2) 

DD=G 

Q (I , J)  IS  THE  STESS-STHAIN  CCNSITUTIVE  MATRIX 
(T)  IS  THE  TRANSFORMATION  MATRIX. 

0 ( N,  I,  J ) IS  EQUAL  TO  (T)  T * (0)  * (T)  AND  IS  CALCULATED  FOR 

EVERY  LAYER  AND  STORED. 

0 (N#  1,  1)  = AA*CC*^4*2. 0*  ( BB  *2 . 0*  DD)  *SS**2  *CC**2+ES  *SS**4 
0 (N, 1 ,2)  = ( A A*  EE-4 .0  *DD)  *SS **2 *CC**2*BB*  (SS**4  *CC**4 ) 

0 (N, 2, 2) =AA*SS**4  ♦2.0*  (Bb *2. 0*DD ) *SS* * 2 *CC** 2*  EE *CC**4 
0 (N,  1,  3)  = ( AA-BB-2.0*DD)  *SS*CC*  * 3 ♦ ( BB-  E E *2 . 0 *D  D ) * SS*  * 1*  CC 
0 (N,2,3)  = (AA-BB-2  .*  DD)  *SS**3*CC*  (EE- EE*  2.  *DD)  *SS*CC**3 
0(N,  3,  3)  = ( AA*EE-2.*BB-2.*DD)  *S  S**2*CC  * * 2*DD  * ( SS*  *4  ♦ CC  * *4) 

DO  100  1=1,3 
DO  100  J=1 ,3 

100  0(N.  J,  I)=0(N.  I,  J) 

101  CONTINUE 

********* *************************************************** 

CALCULATION  OF  A(I,J)  MATRIX  WHICH  IS  THE  SUM  OF  Q(I,J)* 

H (K)  - H (K- 1 ) OVER  ALL  THE  LAYERS. 

**** ************* ******************************************* 

DO  200  1=1, 3 
DO  200  J=1 ,3 
A (I, J) =0. 0 
DO  180  K=2 , KL 

180  A (I,J)=A(I,J)  *Q(K,I,J)*  (H  (K)-H  (K-1)) 

200  CONTINUE 

♦*•♦♦***♦**♦♦♦♦**♦*♦♦♦♦*♦♦♦♦♦♦*********♦♦*♦♦****♦♦♦♦♦♦♦♦♦♦♦*♦♦ 

CALCULATION  OF  B(I,J)  MATRIX  WHICH  IS  THE  SUM  OF  Q(I,J)* 

H (K)  •♦2-H  (K-1)  **2  * (1/2)  OVER  ALL  THE  LAYERS. 

**********************  ***•***••***••**• ********************** 

DO  250  1=  1,  3 
DO  250  J = 1 ,3 
B(I,  J)  =0.0 
DO  230  K=2 , KL 

2 30  B(I,  J)  = B(I,J)  *0  (K,X,  J)  * (H  (K)  **2-H  (K- 1 ) **2)  *0. 5 
250  CONTINUE 

************************************************************* 

CALCULATIN  OF  D(I,J)  MATRIX  WHICH  IS  THE  SUM  OF  (1/3)  * Q(T,J)  * 
H (K)  **3  -H  (K-1)  **  3 OVER  ALL  THE  LAYERS. 

DO  300  1=  1, 3 
DO  300  J=1  ,3 
D ( I , J)  =0.  0 
DO  280  K=2 , KL 

280  D(I,  J)=D(I,  J)  ♦Q(K,I,J)  * (H(K)  **3-H  (K-1)  **3)/3. 

300  CONTINUE 

DO  305  1=1,3 
DO  305  J = 1 ,3 
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ELN  ( I,  J ) = A (I,  J) 

ELN  (I,J*  3)  =D(I  ,J) 

ELN (1*3, J) = ELN  (I, J*3) 

ELN  (1*3, J *3)  = D(  I,  J) 

305  CONTINUE 
RETURN 
END 

/* 

//G.FT10P001  DD  UNIT=DISK,SPACE=  (CYL,  (2,2)) 
//G.  PT11F001  DD  U N IT= DISK , SPACE= (C YL , (2,2)) 
//G.PT12P001  DD  UNIT=DISK,SPACE=  (CYL,  (2,2)) 
//G.FT13F001  DD  UNIT=DISK,SPACE=(CYL,  (2,2)) 
//G.FT14F001  DD  UNI  T=  DISK, SPACE=  (CYL,  (2,2)) 
//G.Pri5F001  DD  U N IT= DISK , SP ACE= (C YL , (2,2)) 
//G.PT16F001  DD  UNIT=DI SK , S P ACE=  (CYL,  (2 , 2) ) 
//G.  FT  17  F00  1 DD  UN  IT  = DISK  , SPACE=  (C  YL  , (2 , 2) ) 
//G.PT18F001  DD  UNIT=DI SK ,S P ACE=  (CYL,  (2 , 2) ) 
//G.  FT20F001  DD  UN  IT=  DI  SK  , SPACE=  (C  YL  , ( 2 , 2) ) 
//G.FT21F001  DD  UNIT=DI SK , S P ACE=  (C YL , (2 , 2) ) 
//G.  FT 2 2 FO 01  DD  UN  IT=DISK  , SPACE=  (CYL,  (2,2)  ) 
//G.FT23F001  DD  UNIT=DI  SK  ,S  PACE=  (CYL,  (2, 2) ) 
//G.  FT24F00  1 DD  UN  IT=  DI  SK  , SP  ACE=  (C  YL  , ( 2 , 2) ) 
//G.FT25F001  DD  DSN=A. B ,DI S P= OLD, U NIT=T APE, 
//  VOL=S  ER=T0  2246, LABEL=(1,SL,,IN) 

//G.SYSIN  DD  * 
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F 


SAMPLE  PROBLEM  INPUT  DATA 


Total  Thickness 

- 0.024  In 

Finite-difference  grid: 

12  x 12 

Number  of  equations: 

432 

Number  of  nodal  points: 

144 

Maximum  semi-band  width: 

81 

Initial  Imperfection  ampl Itude: 

0.0  In. 

Radius  of  curvature 

■ 25  Inches 

Boundary  Conditions: 

Along  edge: 

x ■ 0 

- 

w 

- 0, 

U ■ 0,  V ■ 0 

x « 6 

- 

w 

■ 0, 

Nx  ■ o,  N x y 

y - 0 

- 

w 

* 0, 

\ ■ °-  v ■ 

y ■ 4 

— 

w 

* o. 

"y  ' '•  "y«  ‘ 

Total  no.  of  layers:  4 

Thickness  of  each  layer:  0.006  Inches 

Fiber  orientation  In  the  panel:  (+45°,  -45°,  -45°,  +45°) 

Modulus  of  elasticity  In  fiber  direction:  40  x 106  ps 1 

Modulus  of  elasticity  In  direction  perpendicular  to  the  fiber:  4.5  x 106  ps 1 
Poisson  ratio  v12  : 0.25 

Shearing  modulus  of  elasticity  G,2  : 1.5  x 10f’  ps  1 


r 


1 

•EQUAL  MESH  PANEL  12  X 12  GRID  NO  INIT  IMPERF  ECTION** 


144 

144 

0 

0 

1 

25.0 

0. 

000  1 

0.00  C 

1.0000  0 

.0000 

o 

• 

o 

0.0 

0 

0 

12 

12 

0 

0 

0 

0 

6 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

7 

1 

5 

5 

5 

c 

5 

5 

5 

5 

5 

5 

3 

1 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

3 

1 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

3 

1 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

3 

1 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

3 

1 

5 

5 

5 

c 

5 

5 

5 

5 

5 

5 

3 

1 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

3 

1 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

3 

1 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

3 

1 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

3 

8 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

9 

1 

2 

3 

4 

5 

6 

7 

8 

9 

1 0 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

3b 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

1C8 

1 09 

110 

111 

1 12 

113 

114 

1 15 

1 16 

117 

118 

1 19 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

1 

2.0 

6.07 

2 

2.  55 

6.07 

3 

3.10 

6.07 

4 

3.65 

6.07 

5 

4.20 

6.07 

6 

4.  75 

6.07 

7 

5.30 

6.07 

8 

5.  85 

6.07 

9 

6.40 

6.07 

10 

6.  95 

6.07 

11 

7.50 

6.07 

12 

8.  05 

6.07 

13 

2.0 

5.700 

14 

2.55 

5.700 

15 

3.10 

5.700 

16 

3.65 

5.700 

17 

4.20 

5.700 

18 

4.75 

5.700 
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19 

5.30 

5.700 

20 

5.  85 

5.700 

21 

6.40 

5.700 

22 

6.95 

5.700 

23 

7.50 

5.700 

24 

8.  05 

5.700 

25 

2.0 

5.330 

26 

2.  55 

5.  330 

27 

3.10 

5.330 

28 

3.  65 

5.330 

29 

4.20 

5.330 

30 

4.75 

5.  330 

31 

5.30 

5.330 

32 

5.  85 

5.330 

33 

6.40 

5.330 

34 

6.95 

5.  3 30 

35 

7.50 

5.330 

36 

8.05 

5.  330 

37 

2.0 

4.96  0 

38 

2.  55 

4.960 

39 

3.10 

4.960 

40 

3.65 

4.960 

41 

4.20 

4.96  0 

42 

4.  75 

4.960 

43 

5.30 

4.960 

44 

5.  85 

4.960 

45 

6.40 

4.960 

46 

6.95 

4.960 

47 

7.50 

4.960 

48 

8.  05 

4.960 

49 

2.0 

4.590 

50 

2.  55 

4.590 

51 

3.10 

4.590 

52 

3.  65 

4.590 

53 

4.20 

4.590 

54 

4.75 

4.590 

55 

5.30 

4.590 

56 

5.  85 

4.590 

57 

6.40 

4.590 

58 

6.95 

4.590 

59 

7.50 

4.590 

60 

8.05 

4.590 

61 

2.0 

4.220 

62 

2.  55 

4.  220 

63 

3.10 

4.220 

64 

3.  65 

4.220 

65 

4.20 

4.220 

66 

4.75 

4.  220 

67 

5.3  0 

4.220 

68 
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